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«uJa« 



o^ljTuJl J jk- 800 000 Jl >u,f 10 -y. JW ^.l^j ij-rj £. pj Jju U^ UU*^-I 

. <*JUI J ryJ>jj SyiUaJl v- L*Vl »*aU1.I (j^ti Jp i*iU 4iJb ^W^ kU 
SJui-l iUSClL ~^Jj t JLixJl julp \d>- iJUi Lfij 1 • Ji » J x> l JLl ii) ^ JlSl^Ul 

Ji iiJJ JS'j Ou^uJ.1 oUkl uU^I OS jjSCi oL rj*JaJl 1 J**JI I Ja ^ 

AFNORj ISO (JiJl £. i^-jjill 3JJI j,lkl 

CUjf Aijis %uCL~o itf^Jl lip j jikj jti t t^JU^JJ JjVl *jJLl £«— j 

x-u^- (j 4_^^JU ^jjj—^ ja U JS 1 k* ^Ui; (jyjJrl jji>i* J aJU^-jJ.1 ^LuJl d>l 
l^l5wj JISL-Ul i*J JU*i*4 '-J'V: "^V^ J^l *s*L«il ajIjJI *jJrl *^> . olijVl 
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Niklaus o^jj (j-jJ^J J?» <>» 1969 *Ip S;>Jb*J.I <. Jl5L»Ul i*J oijp Ji3 
j-k£ ^jlU /»UaJ Jls-jj «.jJI . Uu j^. IjLizll i <^jil ^r_r^ ^W 2 -" ( ~*'^ _p \r> wirth 
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JjVi J^AJI 



rui\l Jl X>bSC frJLJI iuLS" 

t » V* • ■» ♦ *- » 



JJUs)l-0.1 
J J_j_>-^JI J_J : if j-Jl J tjyX^Ji *te-Jv> Oj& <JI J^aiJl IJU ,y jIjj 
(>U^fl i_-4 i <_£>>-? i*J Sj J J <■ «PascaI» JISL-Ul ajJ J 7?*\j^\ ^}^ Js-*^' 

. LL»tiJi t(_^iLji ^iuijj 

. F I ' ' * . " ' . * " " - - f" 

Jol <t«J^u L^lxjf l "Ss igJij t ijj vvi Lp5J 4jL^> (jjb <JU™J 'LJ-AP 4JaJjl i_ J J>-«l«-o 

OjSxj AJ jg ...ll ajj Juj *i J? Lji] . <L>-kiI^i jl ib JaJI | jJLrf- jU»l ■j-*-*^ L'..i,»Ail p~0y. 

Olijillj 4w°UJl jt^JkLill jL>-il_j fw~wJ >^>o 4_Jl_Jo l^il \£ t f-ij** e^" r^ 

J^aill J t i_»Kl! J^l ^JtLL. JlSL-LJl l±S J py>ljJl ib? JjbJ *v 

. (( J**: n ^oljj J*- u^l Ji" Jj-aJ-I «^c V IIa> . jWl 

**~Jl ■>• &&?i\ _ 1.1 

c PILLS' ) aJUjc^J.1 ^LJaJl olJb-j ^ L« : ik^-f sjlp J,l Lfj?£ iJLil Oli 
aJ-jj /y> ilLft Ja ) ilj^Jl j»li| Jiip <uaj v^lf^' 0**" <-»l— *- (^ i -^ t ( ? ^i» 

Js- ^f ijL^ljll Jl ( 4_j«.L.Vl ULil ) ilS^ill -jj. jj-j*JI ^I ili-^l oJia Jp 

** » ° ^ 

. 4jLJi,l olj^k-*a-» 

jf t L o k-jhS" 5_«>-l^ l5jjj-^JI j^ *il tiJLJi -^ prj jl -jSlc t is-j^yiall ilLAL 

lij. . ( . . . t ilLliCil 4 i^Uiil t tULj'lj^ll ) jL..AU illi J jj^i^liClfl his>-\y> 
. SJj?- «JLo (Jl JUL; (_$i3i u^ p^^J^' '-'^ ' iUjijw jl iLol5_^c- ii^ljll cJl5 
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1000 : I^L^ ^,-jdl ^ilJ 



j^ 1 



jViydl 



<L*4.> 1 









•j^i « <^S\ » 



1000 






(Methode deductive) Jut-lss-/}!! 32j^laJl 
i^U *>~JI ^,j£ j* J^NI a^lss-Vl 4*i>JI c >" t JJ^ jij^ 
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J *Jl>o| ^ ^jj| JjVl j^jA\jA 


l^i^dl 


* * 
$ (( i>«-xJl )) JwU>o 

i J~Udl 


-Uj IjjA4 i (ji-iil ui*>^-' J ^ >- ' Jjlx*j t « iU-y 


. J5" J )) t ^ -yj 






: ->. j*-^ 1 a* 


4 kjjj-* ^ l^i t Si'ij (. <~iyX\ 


t—iijAj t ObJjjjCjl j*-^J (J _ 




iJL>- 


jjO JKA (JL>Olj 


ijj-*-* JS" p-r&i ,_£>■ viUij t i jJ~\ ujiyiil < 


»J>*il J^J j _ 




. *AOjJb£ *J oi *j>*il 


. ( A^dl Jl oLiwil -^ ) c 


Uj jJUXJI l_-«J >J J-A»*J 4jlpjl (J 



1 SjlpUJI 
2«JLpU)I 



3 SJL^UJI 



■ ' 
( . . . i iw t { J^>- (. 7*~*~f> ) J_ic (^JUl i*Ji)l e-jj ^ 

- 7 t 100 Ji* 4>«^>«^ Q t ouljJ *Pj*jf • 
-0.05 i 3.14159^4^4^^1 
i>wJl : i»« i > W 9 i<^j ) div ( i^j^all iJL** ) * t - t + Ji« (, cAjiy* i&y*£- • 
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JtL. 



( « *>«~JI » >-«ij*J ) 1 SJIpUJI 1 iLs-^ll 



j»J>«*il 




oLLycJl 


•j^ 4jiij 1_^>-^J.I ,j-»iJl ( «;J>w) {y&\ 




jjAJ (( i_^Sl N = *>^ 
. ... ...1 


,/jy" 1 ; ' <Jy.y } Jc 5 




t 



( oJj J^. J^**i t_a^a <0[ (( <e>wj )) ) 



^j-iJl i-iiyu ) 2 SjlpUII : 2 il^-Jil 



r^dl 




oLLycJl 






1000 ^1^1 yuJ\ • = j*iJl 
div ' £ J / 




1 


^yku^ij^sJL 







( &\JV\ ^-J'j i J -P 1 '-ks* ) 2 S-^-* 1 ^ 1 : 3 ^^ 



f*A\ 



olfljycJl 






div ^ilji^fl y«-Jl # Ojjpi = u*^l 
1000 " , * 



3 sju»U)I : 4 Sb-jLI 



10 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



iS^xi^. S^/Xj l^] ) L^-ip Jj-^sj-l (.j^-ljJl i^rJl i-ijAl ^ c^^V' :^i ul 
J>wJl JSCJ; i-isoj -^ jlkJ Warnier iJjIj ii^i* !&ui J^WJI J^l? ,y>j£> ** 

. ii-Uil iLg-AJ (PL""" 
jt^SUj^AJ C)j>3 (^JlJ /)J ,>-l d^j*-" "Ua^nljj Lo l^JjJta i_j4i jJU jjfc UA <Uj«a! U 

jL»L«-*jj UL~w«> jljJUsS. (jUj_«jo U* ( 4-Janil jj (( iL^UJI || o\ '. <ilb>-!>Lo 

t ( i>J*>Ul _jf ) 4-iLiJl dj& of l j£r « iu^^Jl » t^ioi p^^l p\jl>- /" JU^Nl 
: ( olilLJl jf ) Clavier ^^1 o>& 61 ,j£c *Jk*ilj 




J Ui j 



<UZM 



JISL-Ul Hi J ift^Jl _ 2.1 

uISwLj ryuj) iw Ij*\~a (jjUaXi oLj j?-l (ijJUl JJUxill oj 

; ?y\jj> 6I_j^p *_ j^j ; 1 

" , 'i 

Program identificateur (inpuL , ontput) <•. ( ry>- t J^-o ) <*Jj*j> rp&y, 

. p^lJ^Jl ,J!U 4~~Jl ,_g^« ^3 jjp ja jb>«il i_ij*il ol ti~?- 

Var ^-Loill _ iJKlL fjj cjL^j-^xJI •_,» le-j^^s *jjt*i,l (t->-^ : 2 
Var identificateur: type;/ Commentaire { ilip-%} { f-jJI : j^uVar 



\£ ) char, real, integers JljJi J* <«— t L5 ^>- t tu»^ ^-i_^JVl *^r>^ 

. ( ^^^Jl&jyfc J15L-UI iiJj^j oU Ja^AJ 
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f *" - - - * 

IwUj h oIjLp *h**\jj f~fU t— jjdl i. >• t5^Vl jJt SJb-ljJl oUjycJl (»jr_^o : 3 

. «end» ItJSi ^jG^u «begin» iJlS^ *^Ji\ \1a 
a: = b + c JUl JSwll J* i--^ a = b + c Ji» J^> <-*jyj - 
writeln (x) : <_o£o x i_-xS"l = i^-xi : Ji* i^zJ uiyu _ 
read (t, u, v) u^j i-IiuJ. « l2»j » v, u, t Ji» oLk*l <-«j>><j - 

j begin j-j ">LJu i u -1 ^ 1 ^^ <i ^' ) ^'^ & ' ( ^ >°J J J^ l - i ^ 1 
U . jkJl Jp ol>s aiji jf asUI <- ( Jrtll <> J^-lj ^Ll *j*j v£ a : = ■ ■ • 



OljAI : J^ 



en-tete 
declarations 



program balance( input .output ) 

{ J^~ * j'^ J* : yy } 

var pr tx : integer ; 



poids : integer ; 

prix Unit aire :integer; 



{ f l>JU OjjJl } 

enonces begin read(poids , pr ixUnit air e ) ; 

prix:=poids*pr ixUnitaire div 1000; 
wr i teln( pr ix ) 
end. 

: Poids t ott^ij : declarations i ^j\ j*~> : Prix unitaire <. ,ydl : Prix s olj^ : en-tete ) 

( olj*» : balance i oljLc- : enonces t ill j_jJl 



Asll 



„bJa_pi lil : i> 



<U>oJo l_~^5vj J 



. 1000 «»^j| ^ ^ 200 ° ' 500 

L^ u^-A\ uuU . £S f JJ 2000 ^jU, ipl>Nl yuJIj f l> 500 ^jL-i 

• ('K uV 100 ° ) **** J 5 ^ 1 <i* V^" **>£^ ^ ^^ ■ '^^ 



liUJbj ; tij^Jl ^juJ ^JU i 



«ui c 4iP' 



U v yk. >- J5J JjVl <»~H Ojfi t y'^l oL-U-1 ,/« J (1) 
writeln (' ', Prix) ^j&l- UJli 
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. . £JI Prix, PRIX, Prix, Prix, prix v_-x& of -^SCc Prix 

. . . t PESE, pese, pese v_j£j jl ■_■>!«: Pese 

. <2.1>f).. jJl 

(Expressions) ,/jI<JI 

<jj ( Mi* integer ) fjJ 1*jj ~j cJ^jw J& i ui*jj« ik^ljj iliiT olj-J&i A 

i _/_*dl 4 »J JL>- » ^ju* i : = i + 1 Sjl j^Jl jLi { Var i : integer * «> 

c-bJUi-l i»-ill (Ja->w L« IJ-> 4 1 ( **-?*+a}\ ) 4-«-JiJl l$Jl eJvil 4 ( 4^>tv» ) 

<: j i jwc*JU ( i^sj^will ) 

if 

: (Operateurs) cjIj-JJ^ • 
* t - t + okJjll ( _ s kiu t( ^>w» ) integer fjJl ^ (Operande) jjjitu J^ _ 
4>^J L$*-^ ( *>«~*w i«-*J ,L»L>- ) mod 4 ( it-^x^> i* ... J ) div 4 ( <~>j^ti\ ) 

. integer £^Jl -y 
i>wj IjJaju ( <&&- «U— i )/i#4 — t + :( J*J&- ) real fjJl j^ (jiy^ ci* - 

. real f-jJl ^ 
pyJl -^ i>~^ / 4 * i - i + 0LJ3U ^^k*; real jf integer s- y JS" -^ _y tu ^e- _ 
. ( ijLJ-l iJLuJl JJ real pjJl Jl integer^itdl Jjj^ (_$_^-)real 

. ^uiub- j|-lpf (J* 4;oLu>- *UU* L^jlj ^jh I _ 

( 7t*?*->0 ) 1 t5jlwJ 7 mod 3 j 2 ^jLJ 7 div 3 }\i«i 
( ^yLi^ ) 2.5 IjjL-i 7.0 / 3.0 4 7/ 3 4 7/3.0 t 7.0 / 3 
; il£*JI l?' u' o .>" l l ■>« (t^ij^f^' (*sj2j 01. 

(7— 3) — 2^7— 3 — 2 
oljJjil J_p 4-yL^Vl Li ( mod c div 4 / 4 * ) ajjUoJI oLJjll ^ 

: ( + t - ) iwU-l 
(7 * 3) + (4 * 2) ^J 7>* 3 + 4 # 2 
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. 7.5 / (3.0 * 2.5) ^1 (7.5 / 3.0) / 2.5 ^6 7.5 / 3.0 / 2.5 

(Affectation) l jw»^li 

( iJLJb- ^j* a / 2 ) iJ _^U _^i ^ a: = a / 2 
2.0 i«J»JI X JLiM ^^ixJJ jJ*; X : = 7 div 3 

. ( (jlill J-saiJl J sipljill oJLA \~joJZ »Sj i 9j-o- 

(Iteration avec Compteur) ilJtp ** Sj jlj&Jl _ 3.1 
,*J (J* JaJis [j-Jj (»-^' (V o"}LJL«xii (_^ t cjMLA-I ^o^vi? j i_jLJ-I *^> 

iw-xS'l ")&> 4 Uij J?- JS iiyJ. Cil (Suite) iLJu»dl J»«-*iw t i»U)l i^-bJl ^ 
oJlp Jjo -uii <>-c>-jd,l iill v_-j5I ^ i _£^l JlJ-l 5i^*l Ul c jC,\ y&\ {y aLJuju 
i JJ all ^ sM J.I4 t i jl_^Jl Sk-.l_^ iLlw-dl j^cs- Jp J_^v«J-i ^ . olijj 

: iLJL~i« -^ 

ui = f (k) = iS^ JjJi=M ^ J 21 -— J 5 ^ ^i - 

u, = f(i) : *, ^U-l JJjlU U; 1^1 - 

( ti = N & i : N _. .^alJ Vji>- <-sS\ : Jli* ) 

ui = f (ui- 1) : JjLJI jl>JJ Uo u[ _ 

(Si = S.- 1 + Prixi : A*ii ^^-jdl JU-Ml £lAI : Jli* ) 

iltf. j[ t ( Jj^lj 20 v_^l ) hAj^ \ijyu> ijjJ-l :>Ap bjSi jf (j5l£ 1^1 

^j; . ( 4-TJ a -"-° **!!» (>• J*f t^y rr^i ^"-^ ^— "k--^ i J J> ' cT" l- **-^ ) ^^ 

u = dernier «, = / ("A;, i, Uj-J pour i de d a a 

( « J £tU-l » J = pour t j^l = dernier ) 
; t_iijj Jajr^ APjA^- *ijlj^» J,! iS^y V^' aJ^-I Ic^. 
m = dernier u\ = f (k, i, u\-\) pour i de d inclus arre* 
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( j^-w" = inclus t i-azy = arret ) 
«_->LJ-l J -j-ww^Vl JbLl OlS" lil 

u = dernier «, = / ('A:, /, «i_J pour / de d tant que «o/i arre/ 

( « lilU iSJLJ-l » Ulla = tant que ) 

• ■ • j* u-*^' ■ ^-^jj n -" <y° J^ -^ ( cr'J^' (y r^^ 3 ■ >J ^ ) **« v^j-^' 

Oljll ^ n iJjJ iL^j. i^J.AjllS'y* ji| ■ ijjVlaU ( 1.1 ^>\ ) 

resultat = ecrire /?ru: pour payee de 7 a « 

( *UJ - pesee 1 j*j = prix 1 i_^JI = ecrire t i^i = resultat ) 



JSO LjjIj Xj-^r J^JJ ilUAJ : i^aJl i-Jjyu <£^L~o l _ r ij J 4jjjjju ^fflJaj jf <~^ 

( ijj J ( 7^^ ) j^tll ) prix (entier) pour pesee 

J *-ky^ jMH J* <J**J : *U>^ ^^ <J o-J n «-ijj«j OU t JjUII J 
U^ >_j j t a .t...yt.j t j^->»ll ^ «_vij_wwo« Pesee iljj » i_i^*ll . ^LoVl JjJbM 



C^J.1 



liilijjdl 



^UjjJLl JLs^Nl jJdJI : ( p?*** ) n - 






Uij n 
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^jisxil Jp jULl I Jifc juxw . n = 10 : n J l*J tUapl loli UjjJiic OlS" ) 

( iJL-JJ ^^aJ-I 
£~^Jl> JJUij t i^lsJl JjIjl^I ^_^£— LJli t ^L-Vl JjjJrl J*3] 0t -U. 

. ^Jjydl JJL>- u J6 ^jJ ^JJl O^j*^ 1 J^ ^r* J^ J 



r*»" 



oliyoJl 






© 



( jv*^ 3 ) ^JjJ' - 



n Jllj-^JJ-Ju^ 1 < r ^1 = *=^ 1 ® 



iid-USj n (3) 



O*- 1 *~ Vjj • 



© 



f I>)Ij dijjJI : ( L ^t>^>) ^jjJ' 






iooo div if>iyV l j*- Ji * d ^ = ^ ® 



: i_ijydl d)U <. JliLAJl <JJ J 
resultat = ecrire x pour j> de z a « 

: JUI JSLiJl J*- i_^£ 
for y: = z to w do begin 






traduction de la table «pour y» ( « y J » Jj-kM **■>> ) 
writeln (x) 



end 
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( endj begin JU*j j&£ -uls t Ujli « pour y » JjJbM 615 lij ) 

program balance2(input , output ) ; 

var prix: integer ; Jj ^ **»•» <-~rj^ O^ 1 ' VJJ J^ } 

n: integer; { oUj^JU JMl jjuJI } 

pesee : integer ; ' 5 

po ids : integer ; { f l_/Jt; j j_,JI i £jj J£) } 

prlxUnit aire: integer ; {^ji-JSU Jijji^ l y^i\ <. £jjj£t} 

1 -*• begin read(n) ; 

2 — > for pesee:=l to n do begin 
SOUS-j 1 — >• r ead( poids , pr ixUni tair e ) ; 

table I 2 -» prix:=poids*prixUnitaire div 1000; 

wr iteln( pr ix) 
end 
end. 

( tsytf Jj-*>- : sous-table ) 

3 500 2000 100 5000 200 1000 

1000 ilfdl J v^- 

500 

200 



l _ r »iljj i (( oJL*-lj a_jJLJ \Jy^j> <l)lj~* (J-p Sjjji n *lj?-} i) ilLd.1 JJL*i jj 
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r~AI 




oUiydl 




3 

1 
2 


UulUij n 




2 
1 


1000 div tSilyVl yuJl * djji\ = ^1 



jyUjJl i-^ij L» Ijl* 



begin read(n,pr ixUnitalre) ; 

for pesee:-l to n do begin 
read(poids) ; 

pr ix:=poids*pr ixUnitalre div 1000; 
writeln(prix) 
end 



end. 



. . . i read (y) i read (x) ^ read (x, y, ..) : &?-%» 
: ^ ioJUil oLk«J,l CJl£ lil 4 Juidl X*- 
4 2000 500 200 800 1000 

1000 

400 

1600 

2000 

. U.;>w bAc 25 Jjf ^ji. Nj J^r *^t>l : iJLil 
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JJUdl 



f*A\ 



tOlijjcJI 



( ry^n" ) n . 
n # n : n J ( r^^^) f-jy - 



25 JH J" n -J ^^ i n *_^l = i^jdl 



£0*' 



■nJ 



n «n ' 



C^y 



Vj s *LJjb is>-\j^ ( n JJjJl <£•> *_Jyi ) ijljSiJlj ja^JLI >_ij*ll jJUi L* 

Oli ; J-vliJl oX» |JLP JjJ . ( iJLiI ^ J e OjJ^ *5 25 JJjJl ) oLk« Jb-jj 

program edit er Car res( input.output); 
{ l«w txU 25 Jjf ^J. X)Xr ^tj } 
var n : integer; 

carre: integer; {n*n} 
begin 

for n:-l to 25 do begin 
carre s»n*n; 
wr iteln(n ,carr e ) 
end 
end. ( ) 

. wx^> = entier i Jj-*?- = tabic i *J»J = fiditer t juyi =carre 

( l^^^p j|J*f ) B Jl A & jJ*S x J^f jj. f(x) iljjuj- jj : ili^^ 
-> n s!f n JXx^J ; wi»«li^Jl IJL(- Ijl>- A^i vtAj *> J] (_jjy ' 1 cSjL~j L - J !*^ ai * t iJ 

• f(x) 



: itJ i_ji <uU i OpVJ jj.U -J 3^~>^aJI f\iji\ ijlUa i^JIS JU- J (1) 

Writeln (n, ' ', Carre) 
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totals = totalpesie-, + prixpsi, 

( ijj» {j*j + i - i,jjii 9y*£- — '-i$ f\y*$ ) 
: JjLJI jJ-l (3j3 Ja^- jwJj t i_ tofu J i 4J^ jidl -j* . JjLJI 

ijJLs- i_....>J ) recurrence *ljjJl Ji i^iJU « £j-**r » iL~l— il *-»j-« 
dlL- Ji. (.lil -^ V . ui - f (u.- .) Ji* ; (1) *IjjJI J! 5~B «!3U ik-lj* SL-L-dl 

.0 = n g^f : JjVl jU-I <-*s± IS lil Slj U~JI 



r**i.\ 



olijycJI 



»^1>J,1 4. L .. 1 .... T J : ( ?v>w ) £j~* - 
<juUj^Jl j-Ac- : ( f^w ) n - 

( ^r""* ) *JjjJl - 



n J.1 1 j* £ jj J a* 5 

= £j~# Jjl 

iJaxilaSj n 



1 j, 3 j&> o-ill : ( e— ) 6*/f j*-" - 



1000 div &\ff y-Jl * JJJ 31 = ^ 



U, - f (U, i) | . ^, j, j^ a ,,|„„.U ^^ £_,!, ^ (1) 
. . jJI t u: = f(ui) = f(f(a)), ui = f(a) ^U^ J&c 
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v = dernier v = / ( v) pour / de depart k 

arrivee 

premier v — expression 



j[aij6}\ i_^& 



= expression t Jjt = premier i Jj-^fj = arrivee i (jbUail = depart i J = pour t j_»T = dernier 

( is^j" = traduction JjJ=r = table t j«~«j 



v: = expression; 

for i; = depart to arrivee do begin 

traduction de la table « pour i » 

v: =ffv) 
end 



JlSC-Ul ik! J 



«-» Jjlkj (affectation) iJwJ -jx^-oVl ., ...all j f^»_>l.l i-i^il t)li t J*aILi 



X = X + ... 



JJ~=1I 



x:= x + 



cK-U 



£*UjJl 



? 



rogram balance3(lnput , out put ) ; 

calculer le total a payer apres plusieurs pes£es 
s ur une balance enr egis tr euse } 
var total rinteger; { j^. oij_. Jc oUjj 5.1* jl« «*« v^ 1 ' 4^' C^ ] v r*~ p " 1 ^ 

{ oUjjJI jJi* } 

{ j.jjik, <«« v^di ^i t ijj J^i } 

pesee: integer; { f »>»j i Vi, JS3 } 



n : Integer ; 
pr ix : integer ; 



polds : Integer ; 
prlxllnitalre: Integer; 



1,2 -* 


begin 


3 -> 


read(n); total:=»0; 




for pesees=l to n do begin 


JjJL>- 1 1 -* 


read(poids,prixUnltalre) ; 


4J® 1 2 -+ 


pr ix:=poids*pr ixUnitaire div 1000; 


^jljSJ •Jljj^ — ► 


total :=total+pr ix 
end ; 


4-» 


wrlteln( total) 




end. 



10 000 h&zi\ 2 1000 5000 2000 2500 oLk*II Ja*" 
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(moyenne) ^jL*^ Ja—j : JtU 

l*J n J gLJ-l Jbu- Jl l __j»-| ; <JLll 

: ( LJaAj> n ) i«J n J (jLJ-l ia^MjJl v_^«?-l : m«?l J.I 

t VJb- ^ ^1 t n / ( i»J n Jl ^f ) = ^U^- J=u* j 

-JjJl oli wJl ) + ( 4*J i - Ul p^ ) = ( i»J i Jl e^* ) 



JJUdl 





f*A\ 




CjUiycJI 




©- 


yL~>- Jau.J : (^jSjia-) ujL-3- Ja—j _ 


5 


^l*-^" JO«*IJJ Ly.Tll = 4>t*Xi 


® 


®- 


i»J nJl 9y^~ : ( ( _ J isi>-) f)*£- - 


4 


n / fy^-- — (jL~>- J*-> 


© 


®- 


l^sJl iJip : (*^=wj) n 


3 




© 


®- 


J-lP JS i»J : jJU- J (^yLJb-.) v 


2 


= ^f Jjf 


© 


®- 


[<>ij>ui>) Jjp - 


1 


aSSzA Us j n 


© 



J! «-mpJ 



1 I 
® 



lllwltisj V ® 



e-M 



progr 

Imoye 

var m 

s 

n 

v 

n 

begin 

rea 

for 

r 

s 

end 

moy 

wr i 

end* 



am moyenne( input , output ) ; 

nne de n valeurs re'elles} { *^>- <*3 n Jjl«j } 
oyenne:real; ' { i*J n J U L^ 1^., } 

omme :r eal ; . . . 

rinteger; t r^' *** ) {^nJl^} 

:real; { i^all ^j } { *u-S i jjip J£] } 
ombre : integer; 

d( n) ; some : =0 ; 

nombre:=l to n do begin 
ead(v) ; 
omme : =somme+v 



enne : »somme/n ; 
teln(moyenne) 



i^p = nombre { fy^r - somme s i»J = valeur t o}~^~ ^J ~ moyenne 

- 3.5 : ij^sJl 4 - 17.0 3.14 0.06 - 0.2 : oLk«il ,y ili.? 
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n JJ 1 y ijjj J -^J i_^Sl = 1 h*^> 
f y±£- l-> "j I = 2 "^i^ 

~i ^^53 iil3i t (Text) ^^aj f^S\ 2 h^i\j 1 A^xJJ c *^*i.l J Oj£w* 

' fj-^rj 1 *J^r* C-'Lijjxdl j] . ( tcc>w»j ^^iji?- Ji« ) "uL^-b C-«Jj <L>-jl>- 



f^' 



>U.j^=11 



<2>- 
@- 

<3>- 

®- 
®- 

©- 



a.L.1,...:.j : iijj J ( £r*~°) 0**" - 






£r**r 



>_jSf = 2 



© 



IJauJi Ujj n (2) 
J ^ + £j^£ = £^ j^T= J-^ ® 

n Jl ! i>* a JJ 






1000 div ^jlyNI yuJl * OjjJl = o^ 1 ® 



begin 
read 
for 
re 
pr 
wr 
to 
end; 
writ 
end. 



; ?taUjJl (J CjIjLaJI /t^u» 7t>viJ cLUJj 

(n); total:-0; ^ ' " ° 

pesee:«l to n do begin 
ad(poids,prixUnitaire); 
ix:-poids*prixUnitaire div 1000; 
iteln(prix) ; 
tal : »total+prix 

eln( total) 
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3 500 2000 100 5000 200 1000 ^ ^l^Jl oUa« <^ bl 

1000 ^vaJ 4W~J'-' 
500 
200 
1700 

>>-4.1 
: LJa ->i lij j«ji Luc-*J t J e, j~*> **** <— 'I—?- ^iy' (jkcs L° "a^ 

identijicateur — expression si condition, expression sinon 

( ^Ij 2 _c^ ' -Kr* 'M ] j?" = *-*>" ) 

Ja>cj 1 li[ i i jwu = i_i^»o> : 7=r^i "-i^J-l ^^ OU t i?j£}\ JaA 1i| 

2^uju = l)jw I LJJIP jwI; Ja^-Sol 

V-U-Vl i^aJl ^ 125% i.^ ^JJLJ ( ^--Vl J i*L- 39 -y. JSI ) UU>^\ 
. 4.75% -cuJ f\2-\ j^i\ J^f Jp AiJa: &_£ \,--^ oLj t apLJJ 



^1 



oLijjjcJl 



<$_ 4.75% : ( s? a ! a>-) f-i-i - 



2 

1 

® 



^i - f i£.i ^l = JUJI yfVi (3) 

+ j*-~ * 39 t 39> = obUl 
Slljil.25*^* (39-^ULJl) 

0.0475 * f ULl j*-VI = p-J-l- © 



ii«l I2ij oIpLJI 



*_lkxl U* j 



j*-" 



® 



= # 
= <> 



< 
< 



; Ajjli« cjI Jj>i aJo-jiI^j J^jJI p^-jj 



<= > > = 
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; SjLjJL x = y si c, z sinon ^>j£i\ i_Ai _>*Jl a^-jj t JlSLuUl iiJ J 

if c then begin 

traduction de la table « si c » 
traduction de « x = y » 
end 
else begin 
traduction de la table « sinon c » 
traduction de « x — z» 
end 

( S/l j = sinon i li| = si t JjJ>- = table t isrj = traduction ) 

V «*jls t (else jl then) (branche) JL*JiJl <j SJb-lj SjLc- oJU>-j IS} : ili^-^lo 

. endj begin _; IfJpU-l v_^£ 

: ^alj — Jl 
program pay e( input , o ut put ) ; 
var salaireNet steal; { ipUU J.U) ^^--Vl ji Jl } 

salaireBr ut :r eal ; { ^.J-l jlj j?-Vl } 

retenue:real; { pli-l ,v %4.75 ) 

heures:real; { iL^ill oWUl xi* } 

taux:real; {^Ul^l } 

begin l -s- > 

read( t aux,heures ) ; 
if heures<~39 then 

salaireBr ut : =heures*t aux 
else 

salaireBr ut :»39*t aux+(heur es-3 9 )*taux*l . 2 5; 
r etenue :»salaireBrut*0. 047 5; 
salaireNet :-salaireBrut-retenue; 
writeln(sal aire Net) 
end . 

{ it-L. = heure i _^<_- = taux ; JU» = Net <■. fU- = brut s ~~. =M = rctcnuc i j>-\ = salaire ; *3jJl = Paye) 

815.24 h^i\ 28.53 30,0 : oLk*. 

1739.19 *>^l 28.53 59.0 : oLU 



iJlill i>-jjJl y itabw J JUwa 

a = ti~=- i ax 2 + bx + c = iJlill i>jjJl j* ibbw J>- 
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J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



lij X2j xi <juiL*>- /jij^>- AJiUil oJlA Ou Cj -^j <, 4 .^ ,/x>«i» obbS^ i*^-!^* jl>u 
ijv_>jLap •jjjJL?- L-J>j t j-iv i"5jL— j j/ ^-j- 4 ,^5* d = b — 4ac Aja^JI c-jL? 

: aJU d oJl£ lij R - iSj R + iS (Complex) 

resultat = ecrire jc/, jc2 si <i > = 0, ecrire i?, '+ i', S, R,'— i ', S sinon 
( Njj sinon t 1 i[ = si <. i^-d = resultat t <_-^i = 6criie ) 

i>^Jl J£J. jl . l> |„S 'i J '+' oiU*Jl SflsS" ^ ill ^u '+i' Jajjdl oi 

oU}U Oy J»Jdl oL~Jl JUL- Oi 5 2.0 + i4.5 2.0 - 14.5 : dj£~* 

. jA \^ <_ SSj i_SJL>- 

JJsJ-l ^» Sj R i 'Si d > = 0' i-ipyu Ji=- a* *>**il J x2j xl ibS" *x~* 

'Sinon d > = 0' 



l^«i 



Aiydl 



@ J^j-*=r : si d > = ( s? i : i>-) xl . 
@ L^^j-^r : sid> = 0(J5Jb~)x2. 



(^(jijiJ-l (^-iJl : sinond> = (^yLis-) R_ 
j, — «Jl : sinon d > = d^i^-) S . 

(discriminant) j-1* : ( ( j*s i »-)d- 
^JJ^lJ : (JLi*-)a_ 
x'J J,U. :( t ^i ! i>.)a. 



@ 



® 
® 



"ilb'i' «. s 4 '-' cR.'ji' ,s'c '+\R<' 

d = b*b-4*a*c q 
iJa*l U»j a, b, c © 



si d > = 



xi, x2 



xl = (- b + yfi)l(2 * a; © 
x2 = (- b - y/d)/(2* a) © 



sinon d > = 



R,S 



1 
2 



R = - 6/(2 * a; 
5 = 7^/(2 * a) 



® 



Sqrt (d) : J, |/ JISL-UI £J J V~d SJLJI J»jtf 
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program second Degre( input, output); 

{ ax 2 + bx + c = J=- } 
var xl,x2:real; { i-i-i- _>j-L»- d > = \i\ } 

R , S : r eal ; [ *j.U«Jl jj-i*JJ iJ-t^j «^iJ-l fl~iVl i d < lil } 

drreal; { ^ } 

a,b,c:real; { o^lj } 

begin 

r ead( a, b,c ) ; 

d :=«b*b-4*a*c ; 

if d>=0 then begin \ ua-&c- jjjJU- } 

xl:-(-b+sqrt(d))/(2*a); 

x2:=(-b-sqrt(d))/(2*a) ; 

wr iteln( 'deux racines reelles:'); 

writeln(xl,' et',x2) 

end 
else begin { Cj^2^ rj,^ } 

R:=- b/(2*a); 

S:-sqrt(-d)/(2*a); 

wr i teln( 'deux racines complexes:'); 

writeln(R,'+',S,'i et',R,'-',S,'i') 
end 
end. 

. ( l jiJo~ - reelle t ^Jie. = complexe 1 jJl»- = ratine 4 iJlill i>-jjJI = second degre ) 

2.0 - 4.0 4.0 : oLk^ 

1.0 - l.Oij 1.0 + l.Oi uuJLi^ -jjjJbr : *>«~Jl 

1.0 1.5 0.0 : olJLw 

— 1.5j 0;0 tj^JLib- ,jjjJb>- : *>*~Jl 

5jjI — ijl <*>-y ^/> jJl dill Op iy t is^>wj ol_Ik>ui 10 -yi iLJL»i« J 
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|»J>uJl) 




oUjycJl 


jl *~^jll oLk*ll jju- : (ti—^vis) pos_ 

*J\ — II oLknil j->* :(p~**f>) neg_ 
ii 

cJl£ lil l:i J (£yw>) x_ 

(w^t^tf) I _ 


3 
2 

1 

3 


negt'iJL/ t pos t ' = ^>- > 4 , i r iSl= h^j 

1° li! 1 u* ' A x + P°s = pos j^-l = pos 
= pos J jf 
pos - 10 = neg 



X*-iJ 



x=lsiv> = 0, sinon 



v ilkAi&j 



program pos itif( input , o ut put ) ; 

{ ■ - . l_t-- - 10 y Jl I -- J t *Jl_Jl —Jiilj ji<aJ <jjU.I jl *~rjll *^«JI J* } 

{> = 0_)loUwlli-l* } 
{<0JloLk»iliJLc} 

{ % i vrr 'Jl 1 + "'^" J 53 ) 



= 0; 



j>mU Jl 



var pos :integer; 
neg : integer ; 
x : integer ; 



1 :integer ; 

v: integer; { s tJj iLl i^iJl = i-k« JS3 } 

begin 
pos fO; 
for i:=»l to 10 do begin 

read( v) ; 

if v> = then x:-l else x: 

pos :-pos+x 
end; 

neg : »1 0— pos ; 

writeln(' positives"', pos, ' negatives-', neg) 
end. 



( v_JL- = negatives <. < r -*-y = positives) 



1-7 -43021 -40 111 : olJU 

3 = i_JL» i 7 = v_j»-j^ : 4><*£j 

i—flSjj *J» 4-j jIjXj _ 5.1 

: :o£ jl ■j£c iJjI^ScJl «_ja5jj 01 
oIjjW>- iJip- l/Lwi L»^p li[ « Jj->^>j » Jl « (J")^! » {y> i -J >— djyj = id ■ *=>-lj-^ - 
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« ±>jJ> J U,Ua «t JfoUaij » -j^i i J <-ij^; = id 
(EXCLUE) ijljSiJl j* 

« 1*^1 » (inclus) \ LL &* ( JbU^I » ■>» i J <-i>y^ = id 
. Ajj\jSci\ J iLM i ^ 4aiC i»J j>-f j| 

(Iteration avec exclusion) ( jUaxij j? ) *Uasl « i jl jSu 
!jj£Ll i-JbLl oL j^s ^"Ul j^Vl jUJLI t «JjljSoJl ^ *Uai)fl «Ij1 oi 

: iJhll o^kLl J f aii-l [Jij ^JJl Jb- ^lil ^^rJ ij^ 



. JbJl U-l £&! _ 







« Jj^J » lill> J JbUajJ j ^ i J u-iL^u = o^u 

: J, 1^ SjUll vilL- it* SjUI -jS^ 

j: = depart; ^ ( &$&[ ) 

calcul du terme initial (d'mdice depart) ( cijVl «bM <_jL~>- ) 
c: = condition (sur le terme initial) ( J^/Vl jU-I J* Js-^Ji ) 
while c do begin 
( niLjjyu = ) traduction de l'utilisation du terme ( jJ-l JUai-.I lz?J> ) 

'•' = 1 + A" , 
i^jJU JjO>- = ) traduction de la production du terme C*^ E^l ^-^ ) 
c; = condition (sur le terme produit) ( ^xJ.1 JU-I Jp iyi ) 
end 

• ( g^I ) ^ Jj-^ri 0* H* «iy-i «-i* J h -i=vi C5-UI * j^ a/ j* J>a iii jir iii vi (i) 
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^jJl £» Jl£-LJl J 4ip ^j^aJl ^ t U «C» JayJLl jJLlI i_ij*ll jj ) 

( « J^JI J 

t Uo-Ip i_jyj M <■. ~*~ry a>wj»w!> ^ oJLp ry*£- <—>L«p- i_jjlkU cr <a | _^iJ 



1^*11 



cAajjXdi 



( 7^>w ) (Sorame) fy^r - 
~Jill ^ il L»-.» : n J (jyw.) V _ 

(»«-»w) n _ 



- 1 <> v UU» 

= £j*^ J^f 



v «— n J 



Owil3>J v 



jAUi_^p J_Jjl)I of Lfj ; SjJbL** <ix#-jJ! ,,. "v .. j i j^**'' ti^** 1 •*j*^' '-^■A 



»UJ1 



9UU J! 



program somme( Input , out put ) j 

{ - 1 _; U-yi* t i«Jjill fjM £_>** } 

var somme : integer ; 

v:integer; { l^x»J i i-3**" J*- 1 / 
begin 

somme :»0; 
read(v) ; 

while v<>-l do begin 
somme :=»somme+v ; 
read(v) 
end; 

wr it eln( somme) 
end ■ 



(Iteration avec inclusion) <J?~£* £* ^j',^ 5 
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If ^ t ftUiaVl x* i±~* Jdl 

JU-r-lxJl- 


< — (inclus) \:. <,../i>'' < — il^w^ 



: Ji (^ SjUJl dJLL" its oUI j& 

•/.•== depart — 1; 
repeat 

/.= i+1; 
( jr)-*'! = ) traduction de la table « pour / » ( i J JjJ-^-l i^j-f ) 

( JUjcu*.} = ) traduction de la definition ( u-ij-^dl i^jJ ) 

c: — condition ( J»^-i ) 

until c 

*J pjJ V begin-end J^-j*^ ?ci d)i ^i~>- 
, o^LJLd.1 «^JL i^U- J^jc— j J-jjI^ScJI ^ J££JI IJL* : *ia^-%» 

Newton ^jJ : Jli* 

• ( (1KJJ* ***^' )u i = ( Ui -' + u '- 1 ) / 2 
1 = (1 + a/0/2 *U*JJ £*£ 1 OU i iJULdl il,! 1 Li- 13} <. J.OJL 
*_*£ t *-Il aj " (precision epsilon) djL*~j\ *Sz ** 1 J* J-***^ ^^J . I 2 = a ,j\ 
OjJLw[ ^ ji-^>f ft.../a.7 | a - U 2 x I / a 0? J^j J^- 1 ^ x i»e*U j.^**" '-'My 

: ( ( ^ J /S' llM CjI3 j^ ^ uo iJ_)Vl i«_JaJl ) 
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«>«JUO 






oUjyu 




5 

4 

3 
2 
1 


l.ykJ 


(u + 




(j^-^) k- 


|fl- 


u\[a 


< epsilon k*+&> 

1 = u J}! 

0.00001 = a^Lwl 



. abs JlSLAJl iiJ ,j iiilail i»Ji]| J»yo 



program Newton( input , -output ) ; 

{ C?j? '<*>}• t> <■ s? «rijJl j-H-l uL* } 
var u:real;" { oL pell aLJl-^ } 

a:real; { 0J j^ ^ >1^J ^JJl aJi*ll } 
epsilon :real ; / ~ -y 
begin 

epsilon: =0. 0001 ; read(a); u:=l; 
repeat 

u:»(u+a/u)/2 
until ( abs( a-u*u)/a) <epsilon; 
wt it eln( u) 
end . 






begin 

epsilon:-0. 0001 ; read(a); u:-l; k:«0; 

repeat 
k:«k+l; 
u:»(u+a/u)/2 
until ( abs(a-u*u)/a) <epsilon ; 
writeln( k, u) 
end. 



k : integer ~_ rs <adl lS -jJ jl Ojz 
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ol^j&Jl 



ia^Jull oljli^-l i-XP 


J?wji AJa^lLj 


*>-\j«0 


^c/ai* j>s^j\ jj-l 


L^^VlJbLl 


pour j de d a a 


pour /derf 
tent que c (i) 


pour i de d 
inclus c f ij 


while 


repeat 


for 


S^.0 


5JL>-ij 5j 1 


0^.0 


ibjI^ScJl JJ 


4jjIj&J| Aju 


i_aJjJl jl~>-l 



JliLl 



oL?L*>-| : Jit* 

,j^aJ J ( JLpU ) oUl^jiJl JJLfr iijA Ss-U- Jl>-jj t iJUas-l oLoIji ils^ J 

.■* 

,j*vJ J^Jj "^ <^l • i*-JL m^Tuj JpLJI Ifci U oLj SJLp ^y> iJLf- J5 jjSoS _ 2 

. iLJ;-l (ilk; 
JJ J oU-Jlj cjIjlpLJI il jl*I j1...>L...:j ,J* Syii J£3 i^jJlj Jj-^J-I oij ^jj 

: yui 4JLJ1I JU J ^ 

EN FAIT. IL Y A T IL. UN. RADEAU. AVEC UN S. DEDANS 

1-7,4-11,0-2,0-6,2-9,0-6 : Gj& i^-sJI jli 

olw ^bSj »*ljS •_>&: i «char» JISL-UI i*J J i*.-. pyJl I»yj : SJa>-^U 

. IfLj L. J LgxJjlia -jiCr ^ 
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»jyu> 



oUj 



Uj*J 






3 lii 1 tt* >j* A. ^ = 



~Jlp <—5yuJ 






JkpUll jJLp : iU' J (?^>w) nb Espaces _ 


1 


J nb Car, ' — ', nb Espaces <^£\ = ^s- 
= nb Espaces \' '« ./>>" 1 j* *l*r 


oU_Jl aA* : iU- J ( p^o ) nb Car_ 






(j*j?«-^) *^"- 







nb Car, nb Espaces <— 51^ J 



>^Jl5 li[ 1 :c J (gr-w) x _ 


3 


= nb Espaces jrf-T = nb Espaces 


OpL;^ 




carac <> '.' U.U» 1 y c J | x + nb Espaces 


i«*» : c J ( i»— • ) carac - 


1 


+ nb Car = nb Car jrf-l = nb Car 


C nij\ iTjIi 




carac <> V HIM ,>. c J 


( C ^^.)c_ 




= nb Espaces J j\ 




1 

1 


= nb car J j\ 



x, carac-*— cJ 



Sl[jOicarac = ' ' lil 1 = x 
. Usj carac 



sTt^w* jJlju «u~ 1 JjLi-J l^J jdl <uuJ,l (1)1 
— 1 _j <k2J 
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program statistiques(input, output); 

{ iL^u Sjiill ^jpZ J*- ^ iiljj t oljii O^).,^ i_i)j* ^^j J olupLdl Jl* 3 

{aU^ik 4 olai>Ul ^-J jip v-JUa, . iLJLI ^ J^x V jJI i il^iUi-l ^ .a*.UOp 

var p-aragraphe, phrase, c : integer ; {^Vj} 

nbEs paces , nbCar : Integer ; j il^ JSjoUJI 4 oU*U!l jJLp } 

x:integer; { ijpL; OIS lij 1 « **- JSJ } 

carac:char; { l#i*J i iw JS3 } 
begin 

for par agr aphe : =1 to 3 do 



PARA( 



&l 



JUa-1. 



( t^u-MaJ ) 



/ 



ajf 






repeat 

nbCar:=0; nbEspaces:=0; 

read (car ac ) ; 

if carac=" * then x:=l else x: 

while caracO'.' do begin 
nbCar :=nbCar+l ; nbEs paces: 
= nbEs pac es+x; 

read(car ac ) ; 

if carac*' ' then x:=l else x: 
end; 
wr iteln( nbEspaces , * - ',nbCar) 



end. 



until nbEspaces»0 



< iyi ; paragraphes i ,j* : texte j opU : espaces ( J* = compter s oLJUw-l : Statistiques ) 

, ( *LuJ : point s U*- : phrase 



(Tables) JjlJl^-- 6.1 

Nbj nb Espaces J O&yJ.! ) JtojIjSoJl go o\^% 015 t JjUI Jill J 
^j>-f oNU . l ^cUi~. il^U* j UUjc-I JU-I J *j" S*j^i. ii** JS" i ( Car 

: j^Jii of dUJS {fx 

Oli iJb : J>A>- ik-ljj il_Ljll t iijjdl £>-I^L~i t 4aU£ «L* SJjJ ejjjli £^J- 

t ( «U1 ojIjL-1 ) rf*** jf& ( jU-*Vl ) iJLJb-.^ 
U IJLa t (ecarttype) tijUil <J\j>£i\ i_— ^ i iLJLi. J ^1 c^J -A* l?^- 

•j^j JiiJ-l ^^f iw-S'y .' J J-A*- J L^lai^J 1-iJ i uJJ/* *L-X~Jl! JLaawJ ^-~j 

J jLmII ^UJ JjlJb- UJL.1* <-*J£ t tju J oLj ^liJ-l j^Jl v** 1 1^ - 
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. oljU- ojU viJUJlS" jf c U»yJl ^ail *$ljJb»- i *Jl>JJ UJ 
. JJUdl J4^_ 5^1 ^ J^Nl <Ji 4 ib.Vl .1* J* J 

total = Yj prixUnitaire p x quantite p 
p 

• ( V 5 : quantity s &\jl j*~- : Prix unitaire s <^«ji : total ) 

. ^JUI obt-l ,y> P Jl Of vl^- 
*i-i— > jls t }\i» lOj 1 ,Ju syry> <. ?«~»w/» s^s- ib—Vl l$J> Oj5o ^Ji iJU-l J 
t_^£jj « ( ,_yLia- ) [ 10. ...1 ] ,S^\j\y^> » -; *^*a1I j >_is<»y ijlyl jU— f 10 Ji 

. « [ P ] (jpljil j»— » P j^Cs&i ijo UU (■pljiVl ycJl 

(^iljil yto- t [ 1 ] ijplj»i y«— V***" <*^ 10 Jl iLJLu -jj il J.1 jli JxiJL 

iJlV^ 10 Jl ii-l*. ) aJLj-JI ib£)l iJlS^iyb [ 10 ] ^lyl y^ ... <. [ 2 ] 

. ( ^- r >&>j uv j*\ y> ... jJi t 2 ci-^yl j**" 1 1 t£ 3 'yi 

: y* JIC-UI & J villi] J.U1I Lj^JI ul 

prixUnitaire : array [1..10] of rea/; 
et prixUnitaire [p] 

* 



j*- 



CiLi) 



JLsrNl^l :aJ( L ^^) l> JJl. 

f^jjLt aieinc JLI 

(»^>«^) a. 

^Sjiij afeme Jl iL-l : a J ( «p9w») i*L* . 



iJ &i + g^f = ty>* >-i= £j-* 
OoiJUIWH.y 



l>~ 



•aJ 



sl^iil! *L-iV( iJip :(£*~-") V^- 



[ i«JL» ] Lgjlyl y«~. * <-*£ = j-J 
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015^ jli t ^li!l JjjO-I J *«i y> i [ i*L- ] ifsl>l j*- » Jl ^ ^ !i l 
jl : ^L-Vl JjJL^I Jyt i [ 10... 1 ] ^aljJI y~ » oil>V' jL *~"^ iLJ " 
< ^j, J_p ^J^ oil . i (pl>! j-**- » o-Jj h^f^. <&** li^ 1 cs* « **■*-* » 
. Ajyj : ( ju&- ) [ io .... l ] iplyl j— : ^L»Vl JjJ+l 

U)J|l,yiJii>Ji 

program facture( input .output ) ; 

var total:real; {^v^'^ 1 ) 

prix:real; { *^ <■ \SJ^» J 5 ^ / 

a,i:lnteger; 
produi t , quant ite : integer ; { „j.uj t iiydl J <ol-*| >. ^jX^JSJ } 

prixUnitaire:array [1. . 100] of real; { *j>z} 

begin 

for i:-l to 10 do read(pr ixUnit air e [ 1 J) ; 

total :=0. 0; 

read(quantite,produit); 
while produitOO do begin 

prix :» quant ite*prixUn it aire [produit ] ; 

total:-total+pr ix; 

re ad (quant ite, produit) 
end ; 

writeln( total) 
end. 

( p^f : total < i^S : quantite ; i>j*S : tarif ; iJU : produit s ^j^i~> : achat ) 



5 2 3 



1128941224195500 



32 : i^iJl <1)^& 
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Ql.»«.>ml ; JjJl> 
N 

I Si 

N 

jy 



e = 



N 



jj-xiw.i S : (_£jl_jd.l i_JI^_>J jl i^>L*«3>- m ijLv«J-l Jiwayl c$\ V^jcl^. 



%^r 



cjUj 



■i »*• 



(_jL***- Ja**j 


(jL*-)m. 


9 


e, m i—^Sl — *&>-~j 


j^jL*. ijljs^l 


: (J^) e - 


5 


m = SI / N 


pJJlgj*^: 


(c^) S1 -. 


8 
4 


e = Sqrt(s2/N) 


ft-JaJi j^p 


(^HW9)N_ 




SI = dernier SI = SI + S [ i ] pouri 






3 


delaN 


2(Si-m) 2 : 


(JU^)S2_ 


1 


0.0.= Sljjf 


i^JNJIJjJbr :(JLJ5»-)S[1...N]_ 


7 


ilLwiUijN 




(£ ? =*~ 9 ) i - 




S2 = dernier S2 = S2 + (S [ j ] - m) * 
(S [ j ] - m) pour j de 1 aN 




(jv-^j- 


6 

2 


o.o = S2 jy 




(ww>) K_ 


N Jl 1 ja K J LXS tej S [ K ] = S 



rograa ecartType( input , output ) ; 

lSjL.1I <_il_^NIj ^LJ-I ia-jJl uL> } 



var m:real; 
e:real ; 
SL:real; 
S2:real; 
N:integer; 
S: array [1 



{ ,^J| f-j^. } 



{ p-ill >jp } 

1000J of real; NJIJjJi^-} 
i, j, k:iateger ; 



«^l}^Jt 
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begin 
V^y -» read(N); for k:-l to N do read(S[k]); 
JU*^,I _, Sl:-0.0; for 1:-1 to N do SI : -Sl+S [ 1 ] ; m:-Sl/N; 
JU-i-1 -»• S2:-0.0; for j:-l to N do S2 : -S2+CS [ j ]-m)*(S [ j ]-m) ; 
e:-8qrt(S2/N); 
writeln(m,e) 
end. 

( lSjV" >JI>>"I = ecart lypc ) 

. S JjjJrl jU,I 

: relation d'ordre i-^jy iStAp (char) iw f-jJl J* U>-jj . 1 : &>■%> 
'0' < T < ... < '9' 
j\ ) Sj-JbLo j-jST (^j^i J} 4_w -yi JUxJNL jUw— J predj succ Oi^^j 

succ ('0') = T pred('S') = '4' 

s 

: ^^aJl jl~» (j-LiJ JjIjJ^I -^ iLJL«i» ^jj5j Uj>> < i^JLiall 
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***** 




OUjjJU 


( i»— ) c_ 


6 


' 9 ' J! '°' a" c -! F [ c ] <• c v- 5 ^ = -^ 


^:( l ^^)F['0'... , 9']_ 


5 


F = F [x] = N fxjfqte pour * 
de '0' a '9' 


Jp : (jv-w^NC'O' ...'9']_ 

( i»— ) x_ 
ob-Jl iJLp : ( ?vw ) qte _ 

iljlJt* i»_* : carac J ( i«— ) i _ 


2 


TV = dernier JV ['ff..pred(i)] = 
JV f'0'..pred(i)J * 

JV /// = JV /vy + / 

Nrsucc(i)..'9'] = N 

[succ(i)..'9] 

pour carac de 7 tant que / 


y>l.d.l i»-JI JJj ; (£,=w) carac _ 


1 


<> '.' 
premier N = N fjj = pour 7 de '0' a 

gfe = dernier qte = qte + N [k] 
pour fcde'Ci '9' 
= qte j;i 


(*~-)J- 
( iw) k_ 


4 
3 



i <^- carac J 



ilkxl l2»*i 






program frequences (Input, output); 

{ Slaij ^ji^J ,j^ ij (f^j' ) oU-» JJjj <_j1 — p- } 

var c , j , k., x :char ; 

F :ar'ray [ '0'. . '9 ' ] of real; 

N: array ['0'. . '9' ] of integer; 
qte:Integer; { oU-JI jJ* } 

l:char; { UjIj^ iw } 

carac : integer ; { iljl-tdl i»— II v. 

begin 

for j:-'0' to '9' do H[J]:-0; 

read(i); 

while i<>'.' do begin 

M[i]:-n[l]+L; 

read(i) 



{^-} 

{!>} 
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end; 



qte:«0; for k:»'0* to '9' do qte :-qte+n[ k] ; 
for x:-'0' to '9' do F[x] :-H[x]/qte; 
for c:-'0' to '9' do wr iteln(c , F[c ) ) 
end. 



for x: = 'C to '9 do wrifc?/« ^jc, N [xj/qte) 





: ^» oLk*il cJlS" lil 


3 137913411. 




1 0.4 


?t^aJ i^uJl 0U 


2 0.0 




3 0.3 




4 0.1 




& 





o 

■ -M^l iSjr** cr^ M^ V^ 1 ' ( VO^ 1 1 r*£ ) *J^- j«Jf j^JaJ Of j£s 

(Matrice) LJayUw 

: iJjivia ja oaU y J x J 20 Jp oL!>UII 

o^ui v ■ 1 



J,y i«^P 



2,y <W)U- 



x,y i»}U. 



'.J 



M^lp 



1.2 i»}U 


i,iio^Ap 




2,2 iOU 


2,1 ia^p 




: 






x.2 is^U- 


x.l iOU 1 



note[l...x, l...y] ( Ju&~ ) 
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array [ 1...X, 1... y ] of real note [ i, j ] 

( i**^ = note ) 

: iio: oLL* so* a>-ji t "-Jji-^l li* ^*£~J 
: i JlUxU gUJ-l -k-jJl yl~^ ^u i i>JI J* ^ u>UJ-l .k~jJl v 1 -^ ^1- 

moyenneElevei = f £ note i( j)/y 

* ( jlJl; = 616ve t d~*~ J»-y = moyenne ) 



r^" 



i JLJdl fj^ : i J (J^) Si - 

iljlliJip(3) : (jv>^)y- 

(f^n) i- 
jl>.^JI jjip (2) : (£f~*) x- 

( ( y s *>-)note[l...x,l...y]. 






(C5»—)i' 



olijyu 



3=y 
2 = x 






j J [ i, j ] i^^U + Si = Si j*J = Si 
0.0 = Si Jjl 



const y = 3 ; x = 2 
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«j(jjjl 



program moyenneEleves( input , out put ) ; 
{ ojU y ^y> b\^cA j JuJ; x oNlw } 

const y-3; " { \\ y } x«2; { S-i-%' } 

var Si:real; { ^y^~ <. >_Jlt JSCJ } 

1, j.il, jl:integer; 
note :array [1 . .x, 1. .y ] of real; 
begin 

for il:-l to x do 
for jl:-l to y do 
read (note [11, jl ] ) ; 
for i:-l to x do begin 

Si:=0.O; for j:»l to y do Si :=Si+note [i, j ] ; 
writeln(Si/y ) 
end 
end. 



11 16 6 9 12 6 



11 9 : 7^aj *>«~^ 



J^apJLl Li yJ-\ Ja—jJl >_jL«p- t £*j t j Jj^UJl J* **iU ^jUJ-l -k^jJl i_jL-s- jl- 



moyenne Matierej = ( X note u )/ x 



( JjU = Matiere ) 



y Jl 1 <y i A s i / x v^ = *^ 
* Jl i j- i J [ i. j ] */** + sj = Sj y-i = Sj 



for j:»l to y do begin 

Sj:-0.0; for i:-l to x do S j :-S j+note [i, j ] ; 

writeln(Sj/x) 
end 



11 16 6 9 12 6 

10 14 6 to^sJl 

it 

y ,ji ( Jb-lj Jju (_$i Jj~^»- ) (Vecteur) <>^s i»!A*> i_ijisail i-J^va; fLill o! - 
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iljU 0-A.U- jL^Vl Cvu. &k-\ JLyitlJ o^J-l ^VP 1 v 1 -^ <i~- * *«s» 



.'" K 



40*e 



Kli = £ note i, j * Kj 

( £ Kj - 1 f ) 



M 



x til * <>* ' -} M V^ = ^^ 
*Ja*l Us j K 



dA*-) # /" *-otf - 



K [ J ] * [ i» J ] ^^ + M = M/I = M 



for i:»l to x do begin 

M:-O.0; for j:-l to y do M:«M+note [i, j ]*V [ j ] ; 






M U = Z note ilk * K k j 



R = l 



(avec j] K kij = 1) 
i 



K* 



M 
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for i:»l to x do 

for j:-l to z do begin 
M[i, j]-0.0; 
for k:=l to y do 

M[i, J]:-M[i, j]+note[i,k]*V[k,JJ 
end 



o.ij 



IjLsfc 



: 1 jjjI~>- <S^ jtj£ <Jj-^" i\£~"i ( _*Kr~'' i— ij*Jl <~- -sSnj of ■jSLc 



x = j> si condition, z sinon 



9y*M 



X — 



— H 



+ 



: oljL>- #}& jlji J-li 1 <1h— j (j^? 



b *<• 4JjIa° 3 


a < b 


a = b 


a > b 


x = 


el 


e2 


e3 



c i»— i lii 


— + 


+ 






• 


->■ n_i jt 
/ 


roil = 


+_ 


a + b 


a - 


- b 


a + b 


ajb 



: Jj \S SLUll oliycJl ^=6 

x = el si a < b, e2 si a = b, e3 si a > b 

r = a + bac = ' + ', fl-i si c = '-', a • b si c = '•', a/b si c = '/' 



jl^s j^-jj N aJV i cAJl£.Vl JS J*J1j of ^£ iJlsdl J*j^JI -v- of ^ 



i "ill j i 



iJLiLi oljL^-1 ikJ ^ iio: l^b 4>y]l o^& <. JlSL-Ul iiJ J 



if a <b then x:«el 
else if a=b then x:=e2 

else if a>b then x:=e3 
else • - • 
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(type ordinal) <*^-jJ.\ f jJI ,yjy<j *-£ s\X£ J_p- l»j^Jl u-ik£ jj Jj" Ujlxp 

case expression of 
valeur, : enoncei; 
valeur 2 : enonce 2 ; 

end 

( SjLp = enoncg t i»J = valeur s jyJ = expression ) 



. «LAJfc>- 



»3**/> 




C->Uj yu 




aj_j*»*JlI a^uJI : ( ( _ J 3Jt»-) r_ 
2jib : ( t j S i J i»-)b_ 


3 
2 

1 


r= a + bSic = '+\ 
a-bSic='— ', 
a*bSic= ' * ', 
a/ bSic=' /' 


i-JajJ. U»j c, b, a 



e-M 



program c ale ulette( input, output); 

{ *JJo~ ilJipl J* oLU* ^jVl | 

var r , a, b :r eai ; • { ^jitJLI ( *»~dl } 

c:char; '{ /jf #-+:>>! } 
begin 

read( a,c , b) ; 
case c of 

'+': r:-a+b; 
"-": r:=a-»b; 
'*': r:»a*b; 
'/': r:-a/b; 
end ; 

writeln(r) 
end. 

(j*+? *->\~^- : calpulette ) 
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635.922 : i^dl 317.961 * 20 : oLk*il *j> 

t (message d'erreur) JaUJl a£]U : h^i\ l.o / 0.0 : oLk*il 

&>J> jLa>-l -7.1 



^L-l op g^ US' lil IpCy L. li* ) JjVl ij^xll -^ t |jtj| i^^^ £.1^ J| i,u 

*fjsli ttjjUi 61 . ^&ji jjUdi uu- iiji if, <i>Ji ji&f ^ j^ii Jii>j jf oil 
£A m\j* j^\ j^^uji jl>i pj bi J.IS3L ail* jxAJL ^aj Uujj ^ysy 

. aui 

JS% iJ^i^sVl . ^f jMiiJ'CS Vj x ^ H U tP 1 IJL t: ^^ l-^I 
'-V* ii" (raffinements successifs) Jbll jJ Jdl Si.^ ht-jJ\ j£u \gi j» S^i 

. L ^iJl (3U— J LpLj UjUo 

. S^J, 2500 JL^VI ^JJLl tfjw lil 3% w, '^.j JLj-jdl o^| 
0j£ ,jJl XlULl jU^II jyy jUVI ^ ax + b == JjVl hrj jJl j, &ULI j». _ 2 

. jisflJ 5jjL^» a Lfji 

: i|^»Jil oli Oi^UJU J^M f lkJ| J^_ 3 

lax + by = c 
}dx + ey = f 

: (Cramer) yil^S i^> J-Jai dJUij 

x = (ce - bf)/(ae - bd), y = (af - cd)/(ae - bd) 

^LaJl -j* jo* ji. ijj> jp ^ jLyji ^jy. ik-i^ 4*u.ji t-^-l^l JUi t_~->-l - 4 
^ImJI iJp ^ jk jf u^. t dUjj lj dUji 2 t dkj 5 i ^Ljy 10 : iJ&Jl 

. l^U-jl ^jJl 
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Uj = (i + l)/(i • i + i + I) pour < i ^n. 



«=i 
(factorial) *_Ila*il *>^>^ai\ i»*all ^»Ip ^ >.| _ 8 

<F. = (F n _.) • N) 

Aij Aj,... A„ ct B|, B2,... B n . 
d(A,B) = /f (A, -B,) a 

* i=l 

«etxet i_j_jjU1Li r^fiu I ..\i*.»% «lire un texte.» "&L«J . ikSj J^Up- 0>£ll ^yaJI 

. nueril.» 

ftjXill Jp j»-i]l o^U[y> jljil : iJLlJ-l ~Ji!l ^j» v <LJLju (Normaliser) Ja-^l _ 11 

(application lineaire) ,Js&~ JjJai ik--li^ [ 1..0 ] 

Ui = kvj 

( (fl tj t^jL**^ (John Machin) oy£l» Oj^r 5*jv» ?» »*J - 12 



V2n+l\5 2n+1 239 ta+ V 



; J SjjUil 7T jjjial aJUx- J*aJL> Vi 
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J&I J^aUl 



ttlJlJLpljS 



g*kji h\£ _ 0.2 

«UjJl Jbjj L> *j\ t JjJjIL Si^Ap -d U J5 4j JUojLj (Semantique) ^dl 

oK lii Sll <LJL> i>~rJl ^aJ ^ . i?wJl (J,l t5ij^ jJl cjULJ-I JJuJ aj| t -0J 

Jt> <, AjjjV 4*!^ UJ i -n^+P J^J (»J -^ ( ff^'j^l 1^4 (J-" ) -*JC— -JL1 JJ^ 

Sii^yi <G[ t jj-^l r»-^y **J»ji ii!Ap a! U J5 <o .v./a2.jj (Syntaxe) j^ci\ 

[ anonc* si | 

*(TT)— » |~expresslon | — > (then) — *\ 8nonc6 \^ — >(e1se) — »j Snoncfi]^ — ». 



( li[ : si ; JjLp : enonce s j^ = expression ) 

if a: =111,^1 i»-L- i_p*Jl jup-UI <y <y> « if a = b then c : = a / 2 » jSli 

^ iU?«f> il^l JJ -yt l^ (j^p^l f~*»j ^J£ c— J ^ « d — e else x - y > 

jj^jJl Syl-b Jav>^j i j^l jlSU J i-iy^y. U JJal~« J>-b JaksJ.1 j Js>^j 

. ( 4 J = : Ji, l^ULl j^lj «Key-word» OlJjJI oU£JI ) Jill JL-L.VI 
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AJLLu OL» aXtui 

. &. FORTRAN J I _,f BASIC JlS - ^f £J J JLfjJU 

io»L«ii ...■ftliil i _ 1.2 
UJ <u~>- l,-^ of Jp d jowJl jkjJl t D^uS3l jLaJl i L JjJJl : 5JUJI :>U,Vl 



/w_)l O^LjSs-iJ >t* JJLtaVl A_i ,^Ua3 v*j. 



— [H(!-f)T» 



: oUajw j»j» -jj JJl Djd i L 



l**^ 



izAai 



".J** 



@ r^ : d/^) v - 



@ j;JivaJI jkiJI : (J*?**) pd 

j^l^kill ; (" s? iU>-)gd 

3.14159 = (J^-) pi-*"""^ 




V = pi * L * sqr ( pd/2 + 2/3 * " ® 
(gd / 2 - pd /2» 



ilk« J L, gd, pd (|) 



pi jL JuJb^Jlj ijv»^l Ai-^' (Linearisation) £la>«^ lui J^^Ji l-i* J 
villi D Jl gdj d Jl pd _. \ijl\ LJli dUiS" . J&-.UI j>J <> J^~J U : olS ^» 

. LJ^J.1 j^iJ jbik£ obl^ OUj£~. Dj d jV 
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il -U-Vl ipj^f j *J oli oljJid joyw Lj D, d t iol; pi ) ujiydl J^l.^ :> a*£ 

IaaIj^-1 i^^-IjJI Cj\jLJ-\ ijJ- ,ji\ t. oLLydl »J> irtiljdkl t OljLxJlj ( i^&i-i 






program tonneau( Input , output) ; 

const pl*3. 14159; 

var Vrreal; { f*>- } 

pdtreal; { jJwJI jUll } 

gdireal; {jLs3l>i)l} 

L:real; { j^jji } 

begin 

read(pd,gd,L) ; 

V:-pl*L*sqr(pd/2.0+2.0/3.O*(gd/2.0->pd/2.0)); 
writeln (V) 
end. 

( J*V : tonneau ) 



(Declarations et enonces) ol jLpj Cj\£j*fiZ 

i (...,V,pi)\s* jlA\ ^*jA\j ( . . . 

(. IJbS (. i-JjU* t if.\jJ ) 1**1^1 i^l^Jl i_J jlII JUi^l il£ cjIjU^ 

. . . t 4_Js — i t 4_J1 '.".» ; L^iJLJL*i) ( . . i1aj*j 

^11 AFNOR jJiJl £* Ull . ijUll J* i i^jLj » ^J jik, : &>■%, 

(un peu de Vocabulaire) obxik^ail ^^m 

ja 'volume = ' ) iLJLJ,! colyJl t (3.14159) iJLJtM cJjill t ( t -3 ; 4 ) 
^j^aJ ikJ^ iJU t (pi) Colil oj*C Co UJ I Jji£ jjSLc . ( oLw- £— -j* JUu* 

. ( const JJjJI i«KJlj J^Jii ) Cjd 

(V,pd, gd) j«il. t (pi) Cot) (jjSyw Jb-jJ ' Slit Jp jUall pw/ill jA ti^Jtl 
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oUKJl 1^1 t *«o\?- oLUi ijo^dl l yuu y**- ~j . . . (writein, read) *l_/r^ 

. (.., Const, program) *JjJj)\ 

. ( ptfT^e t t_jh&~ '■ integer, real ) LiJL» j Jbt ^S-i i)\ j\ <. ?y>^j^\ 

j4*^L-; i*>JHl i*-Jill >-«j^ JU*j ( V: = pi «& 1 * • • ■ ) Oi^' 'J^ <-H 

. ( pi * 1 * ... ) ^J *^iJl S»~^ (V) jj-l«ll 

(representation typographique) J^-f Jr*^' 
Ubu Jb£ V ('H' J 'volume = ' ) iLJLj iiU jll»l p-jL>- S^lt i«— JS" o[ 
i-ij- J^ic < -»j^ v-xlb -j£c i i_r"^ ^j^! • Jj^l J~*~" J j^y" J*^ ^-s* 1 -** 
longueur donde, }tai : (majuscule) jy£l\ J5l^Jljjl (minuscule) jJL*aJl JSLtlL 
dUiS" i d>"j*l.\ ^Jti olhS" #%' p* LONGUEURdONDEj longueur dOnde 

. Colill ^^-aJ *-* 14j 14 1 14 t 14 

IJL* lobs' J -lLxuJ U IJuj £*t^U sjl?- SMy Oyk J 1 , -»- 1 r i3^ ^ J^ 

tJ *LjcA\ ^ulUl Of C~^ iUfll Sj~»*U g-l^l *JU- J % gj-ljJl ^^ U^> 

(Commentaires) olla*-^ 

. J^l 4__UJL] L-JU ^.UjJl J^-U J!^ lc» j«t ^f OjJ 

1 commentofre I 



O-^ 1— <D 



ceractere autre que ) 



? 



(^ i«~. : caractSre autre que $ iliOU : coinmentaire ) 

OpU ^J 4 4_^ jf 4 ^ «±^ OISU t^f J oUi^^l Jl^J ^ of -jS^ 

• ( ' ' £j» *~ ) 
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(Espaces) cjIJIpUt 
( oL-Jl o'^LJu J J^jJ jJl .ill; Up L. ) oIjpLJI i ollb-^l ol 

t SJLta CjLJ5 t u^^« OlJjSi Oi^U oi^^ Oy-k^J uy. J*^' J* »^>-lj °/> - 

ilb-^U i fly JU-iJ jSCc ^ *>&>i { iiUl ob_yl« CjI^s-j JpMj p-frwij ^c 

. « j?- j~J ob JijJ ^ JlSLAJl iiJ « jl » J^L J^-ljiJl oIa 3?-jJ U UIp 

. OUjJI oUKJIj i*.UM j^jJI Uli 3 jsJW J J^ : &»-:*• 

^UjJJ JLsf'yi jijScJl - 2.2 
(Programme) ^aU^Jl 

: js*ill ApIjS JJ -^ ^j^w ^^ <-r^J i> w ' £*^^' ft LrH uik^ j$Jaj 

wwU^I OljiP- 1 

. oUj-^Jl (.Lit 2 

. j^jL«JI ,<.>. j _ 3 

( 3.3,3 jlajf ) oUj~-.pl ^j^3j +^J _ 1 

( 1.3.2 jlijf) ColjiJl oLLy^ j^— 5-2 

( 4.3.2 J&\ ) ^IjJVl cALyJ ^J _ 3 

. ( 2.3.2 jkif ) ol^Jdl oUj^j* »~J - 4 

. ( 4.3 J&\ ) Jlj-Ulj oUl^rNl oLs-f^ j»—S - 5 



programme 



-»| en-tete de programme — »(~) — > | bloc | — *\^ 



en-tete de programme 



program j — » Identlflcateur 1 — *(T) i — > Identlflcateur | 1 — »0y 

1 o — ' 
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| bloc | 



—* ( const) — i— » | definition de constante | — *Q\- 



— * (type) 1— > | definition de type"] — *(j\- 



-* C)abel) y— » | etiquette | 1 — »{7)- 

— o— 



-*| declaration de variable | — *(T)- 



o 



> ) declaration de proc edure [- 
— *\ declaration de fonctlon~| 



corps [- 



corps | 



* ( begin ) 1 — » [ enoncel ■ — a^end)- 






: label : etiquette ; i_»Jju : identificateur s SjJi : bloc s jljie- : en-tete s f"^ : programme ) 
procedure : t jLii. ; variable ; £_^ : type ; ^j-jC definition : ; ^j-^ : declaration i ~*j 

. (j«" : Enonce { (v^>- : corps t iJla : fonction t «-l_r*-l 



,JbJl «li^l its' -yi JJu>«Jl ^S t aJLft j>Jl oUaksi- l'..„a,^ij IS} 



«boUjJf 



program S2 ( input .output ) ; 

{ ■>>»* £>** } 

var a,b,S:real; 

begin read(a.b); S:=a+b; writeln(S) end. 



*L«Ji VI i—AUrf- i_JJ aIjZ?-} j»j , 



. i_^ljJj^p ^jk type i const t label ^JLJjJl oLJKJl JJ ^ il^jil f»LJVI _ 
A>-Ju" V (( . » 1^ (♦— Jpl j'M t > w ' «end» J^-^j c «end.» (J t wwLJjJl aAj- <j _ 
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. AjjjL (Jj|jL>- ^ 

(L'en-tete du programme) ?«ljjJl jljie 

. liL»^~»l /t-Xj»v jjJI Jtau jJI 

J U>-b oljif oy U Jilkll Jp J^JL oU-j^jil Oy ujijJLl WU £*~J 

^^ • ^"jL>- ^Ij-sfj ( LfcV" ik-ljj 5JLLwi ) j^U^JI 
program nenant (input, output); 

ibS^lj (read) 5*1^1 ^U; J ^.UjJl J U<wi iLxuJ.1 outputj input ^Vl oli 

. (writeln) 
J^b J J^l x> *i ^ Program OLJjJl iJKll J, ^JJl neant o^ll jl 

(Lebloc)SjJLaJl 

. ( iJUi jf ) .1^1 u» •>*» 3^-^all olS" lil ( ill jJI j ) 
(Procedure on fonction, sans parametre) Ja^-j j jj c iJla •>? *l ^1 
• £«M «>■ *> JI f-l *U»pL ^w-J aiaJl jf *I^VI je gj-flJl iJL* oi 
J; t JLxU J£ 0^ ^UJl „iA its' SaUl i Jj U J ^jjj-^Jl jj* ,y AJli dill 



.. read(a.b); writeln('a»',a. ' b-',b)- 
repeat ... 

... until ... 

read(a,b); wr iteln( "a= ', a, ' b-',b); ... 



Ji [S J4— f J^Ij ttjUl SjiiJl its' ^ 
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procedure ab; 1 

begin read(a.b); wr iteln( 'a- ', a, ' b-',b) end;/ ^"^ 

» « • — ► cIJLj 

ab; 
repeat • • • 

... until .. . -* t\x, 

ab; ... 



declaration de procedure I 



-»| en-bete de procedure"] — *(J) — »| bloc \- 



| en-tete de procedure | 

>( procedure) — >| identificateur}- 



! Snonc6 d'appel de procedure 



» j identiflcateur | > 

ol_4j_s«ij ( J_P i£j-Z£ jl Jj^-iJJ ^S . IjLL^i SjJLiJl j_>J tUa&l *j JJai 

. 4jjlj£Jl; SjJiJL (j^liLl j?CJI oJLpU ^^i—J . ?Jl . . . oUlj>-^[ 

3JLU1 oljiVl - 3.2 
(types) fljjT _ 0.3.2 
jUpJ (j jJcll i*J iij^sXJ . oljJiioj ^Ijj : oljal ,J^- LL«p- j»-«Jrl c£j£ 

l 4-o-m l ^ILJfcJ- C 5^>ev» ) I— a.^~o fljJL^- (^j^-T C 4hj.ul f'ljJl -^"Ji - f"J^! ■5"^ 

c *£j> 9-\y\ UojI J^»-jJ i ( -^ t »j^ ) £" j/^' J?* <>* ^>w> >^^" <_r^*^' *■ ( <-i_# 

lij V| i**if cjIjj? SiLU^ <. 4JjLi« J jl Ob*" ti * j*?** <J ' o^i "^ : *r*i 
j>-l J *t^l o^v 4-jwJI SjS^JI «JLa vI^j *i~- { aSjLm^) £Jjjf cjlji cJLS" 

. SyiiJl 

(Constantes) c-jI^j - 1.3.2 
SILJl- t £w t bJlo Co&l ilj£j <jf -_^C { C-jL' cSt^JJ £"1^1 ^Ja' " -J ^ 

. Colt) Uj*-o jf 
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: j>c3\ Jl t integer pyJl ^ j^cs, <, ?^>«*aJl .sjuJI **££ 



nombre antier 



-,'■ — si nombre antier sans signs 



| nombre antler sans slgne | 



;; — *(chlffrej- 



( p4*w : entier ; **!>le : signe ; iJ& : chiffre ) 

, 10 SJlfrUll J J.JU.J1 ^ywi dJij 

- 3 4 : Jb. 
i ?y>«aJl aJLxJl i»*i) t maxint IjL~^ jJbJil c-jliib iij^ t Jul^ illi* -^ 

.0... maxint Sjiill J[ ,_^»rj i»^U jja \>^^a bop j[ 

■jSsXj t as^wj jt^p <uJ jW t real *jjl -^ j-/a»» c Jfc?^-\ iJ*Jl Jiljii 
^J d-*- 0.314E1 Ji. i JUliil jiL Ji^j jf t 3.14 Ji* <. cJ& J£^ «ibJ 
OlsC J^ iJj^S^y&Vl <Ja2jl ) 0.314 x 10 1 : « SjS JI U^j* 10 _; Ljj*i» i «E» 



I nombre reel | 



UQJ 



■ J — >j nombre entier sans slgne \- 




chlffre , 



r*Oi 



L -d> 



UQJ 



v — sjnombre entier sans slgne 



( jJIp : nombre ; 1 _ 5 5 5 J>- : reel ) 
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0.1e7 0.1E7 -5E-2 27.9E - 17 3.14159 : Jt. 
i>* s »w» ji- obUS" pj* Aj 1. : <u^| 
AJL»Jl ^ ^ 10.0000E - lj 0.001E3 1.0 
L-jJ jU?l -j^stf Sij^U t oL» n tf> &JLi* ja oL. n ^ ^UL. 01 

Ujj».j .up >_i iJ-l i.^U jj^Si p. of Up iJjUdl -yj ( JLJUI JjUaJ -j^ J^-o; 
. 'aujourd"hui' JtJl jsdiJl Jp J^ aujourd'hui JUUI &* : JUL- J 



chalne 



:tere) , — *Q 



( JLJu* : chaine ) 
. ( i<w ) char Iaj-wo jJ>J.I f>jJl -^ i»J jA S-b-lj w» -^ VLJl* q[ 

i«-ij liyw Jajy jJl const, iJUjJl <U53I SJa^ljj iU-JU i 7Kj*£& M-** ^1 



definition da constants I 

»| Identlftcateur | — *(=*)— *( constante 




nombre sans slgne (entler ou ree 



Identlflcoteur (da constante) 



^l 



<| chalne")- 



( ijyw : identificateur Oolill i-Jjy<J : definition de constante ) 



: Jliu 

const e = 2.71828 s N = 3 ( £l> ) blanc = ' ' h 

. U-'jIaj* h)& j* Nl .004N + 1 ^£*ll 
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cAjJc* - 2.3.2 

. Ifvjju *j5vJLl £»Ji)l t'jjj t <u«-~j (^JJI i_iy«il JUJl>*i dJJij t j-^» J£ 
: var iJLJ jJI i<J53i JUoJ J>J* ^ otj-Jcll rnj^ Q»* *£ 



declaration de variables 



• r-» j Identlftcateur | 1 — »(T) — > j type \ - 

— O 



: Jli- 

( 7^x+e> ) integer f-jJI -yi _jA i jJaJU i_ijjJLl ) Var i : integer ; 

( <J^~ ) reaI £>" o-* f* z > y- x - 1 Oi*^ 1 ) x > y> z: real ' 

b:T;a:TJSjva^ ibS.y.a.biT 
. ( read S*ljSJlS^ i^-LLo i-JA^jl ) ;jw<J> aJ^p Jj j^ilLi jk l» fj^Li^j (j U jJo 
: JjJju oli ^yb <_»yuf ivpli-l oU^Jl «^ jj 



| Identlflcateur 



- <l»»re) H: 



lottre 



. chlffre 



( *ij : chiffre s <Jy- : Jettrc s .-jyto : identificatcur ) 



JxJLLl jJaj'l ) iJLJi USii i+a\£~\ h\£}\ ,^-iJ 4j jj dj& jf iJyui (^V J^lc ^ 

i maxint 4 read Jt« ) ( LLw> -joO* ) Pred6finis t>_,o...ll tjoytil ^^j s ( 3 

« * e * 

. *j*AjA£ SiU] iJl&j ,>• /^-? V I j* ' U»l>- ^jJ-U U~~« |Jt ( integer 

heme X3 Chapitre3 : Jli» 

3X Chapitre3.2 d' accord un^peu var ,j-^*11j 
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J (CDC) 10 _, J^J jdl oli oUJl jOp ijj. ji\ jJiJi ^ Jbfjj : :&>.% 

(USCD) 8 _, 

4Xyi 5jk: Q^jH <. u jJdl i*sS s^Lj c-i iJu~»- iu:=u+i ui^l 01 
J*J~J J L»-A*j jt l^ t JbUa^l otaf L^iJ c~~J fcJUil u StaVl : (dynamique) 
Ol «J^~>- Ui = u i-i + 1 iL«L«i* Jp i_jL»?- aJu* jA jj^aill jU Ij^iiL . oSjJl 
u = u + 1 _. 4>yj li IJu* i u jrudtl J* l\j>A\ olj-JcJl ^J/ *ij OjS^i i JJoJl 
J ,^-L-T y> .iJ^d.1 ^^Jiil IJLA . ^l^i^l JJ>dl J (statique) i£LJl ii^kJU 
oijol o^La ^lUj of J Oj aJjSw. aa;^ _^£iJl J^iiVl -^ ' j-Jcil o^So *^i 5JL** 



aL^*, fl^l _ 3.3.2 

. jl a«jj oljXi f-ljJI : L^LkJc^u t^JJl pwlJjJl Akw-ljj »jjji^ rt^j^-^l I^oaj 

real : JU»- *jA\ 

- - .. 

*j>JJ Dj-5o oi j t 37 -jji Jif j->bU 4ALkll i»JiJi jjSi of i— jJ t « ij 32 J* » 

: J^lXo oli ( 10 ;JU>UM j ) -kis *lijf 5x~. i^^^l 

10 37 < r < - 10 -37 J 10" 37 < r < 10 37 ( « o 32 Jp » ) 

ol^Jjil U . jjjl ^ .^.UJLl i^JU U 1.0000 OOOlj 1.000 000 ^Ui 

. / 4 * t - <. + ^ ^^Jl £jj| Jp SiJall 

( (ordinal) ^^jj f\jj ) Integer : rtf+~e fy^ 
maxint. .. oj_ii!lj S^jl^ t i>^>wiaJl ^IJLpSII j.* *iy^ ^J*^ f--^ 0j^ 
. JajC^J.1 i_w«U-I iwPj>o iiJui»j U>.,..» isAA oIj ^ maxint Of £~>- i- maxint 

lij (^ t 32767 = maxint dj& « io 16 ,y> oUS" ji » t_*-iL>- Jp : 5ias-^ 

. 107321823 = maxint ols « axj 32 j» oUiS> » ol^ 
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?y^vP fyi\ d[ . 7*~"^ fyh J* J-Jkj* *J>v mod i * c - * + olyjll <j[ 
^^jyJl jwbJlj u-iU-l t i_iLJ| UL" Jsuo jJl ordj succ, pred JljJl i ^j 

( lssJ & ) boolean : ^j, £jdl 

. true J~-J false (Ju~- 

ord (false) = ord (true) = / : ^L^-l 

succ (false) = true pred (true) — false 
false < true 

( V) not (. (j) or i (j) and : J_^ 9jS\ <Jp «joUJi iJikdl oUb-*Jl J-^ 

. (Vrai» ^inj truej «Faux» ij-JyiJl iUJL; false ^*J : 4Ja>-}b 

( v^" £/* ) c , har : **" £/" 

: J_aJl (( Ja^ » olw ) ^-Vl (^mJJ Vj ( . . . i flijf t i_jj_>-f ) (JaJaJi 

. ( . . . t ESCAPE t RETURN 
BCD t EBCDIC t ASCII ) J*,cUl Jbj&JU oU-JLI i-J/Jl al.uVl aAi 

. iJbi« ^j < ja^ll /^ IXj t V!"J^ W • ( ^ ti 1 '*^' _r"' • ■ ■ 
tjJU- ojU!>U- ^ l^j»*aj : « fJai) iLUJl » <ji>L-JJ i^jJL : iUSCJI 

'— ' '2' 'A' : Jb. 
chr ii\ jJl ^SO ) i.^ -^^J -^rji V .' « /«JaJL! aLUJI jf- » cjU— Jl (j^- l^i 

ord (jJi of Jl-c**' • 0I ^J succ, pred Jlj jJl <ULp jJaj oils t t^y £■>* ^1 

. chr (ord (c)) = c : chr i>yj t Z~£\ju> iJta 

succ Cff) = T .. '0' < T < ... < '9' 
'/4' < '^ < ... < 'Z 
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'a' < 'b' < ... < •z' 

. 4*»jjjX)l l \Ai\A&\ AjjULo A>uli ^~4j (jvltt^i SjjlJLo "»" _ 4 

f < rf ■*> orrf (cj < ore/ fc/J 
,jj U as"!>UjI ) (jc*-^ (_£l i— >jjj J^>- i»l^ iiv» (_gj *-,~i (_jl oil v_i^«J M Lo[ 

. j>-l (JJ t_~«>U- -yi oli^^jtll oJia >_ikit : ( . . 

(Types enumcres) ( l _ s: ^y 9y ) ilJW fljJ^I 
ftjl* rp lj >-*xj /^JJI (^jx-JJ ilJxJU oaJbd.1 t (vjiJl .V i«AaX« ic-j^jt ^l 

: Jit. . p^Jl 
var Jour : (lundi, mardi, mercredi , jeudi, vendredi) 

ilxJ Ui^cj vendredi ( j^ Lundi y> ~Jill i^Jb-j Jais Jour jjidi JL^-L Of •jS^f 
. <_/*!>• *J ( _ r J vendredij «_iL- <d (^ lundi at SjLS^I ru> i jour : = succ (jour) 



type enumfirfe 



-*(T) ir-* \ Identiflcateur | r— *(T)- 

— O 



( oj« : identificatcur * *\Jut 9y : type enumdre ) 

^ jjJI 4_Lr oIju^Sj -jp ^^Ju l^ : oj-^S' soils ^Ijou fljiVl «JlA jU _^Jij (,5 

. *Ua^ jjU« v^^ 1 ; 

(type intervalles) ( *~J>j> ) olj» H^' 

AA-Ilail oLUjJI cliy JjJl a/iJl J[ iUjClJ.1 (^j-^iJlj LJJJI i>aJ-1 ^joZS <■. (note) 

. (host) JiJL- p^Jl J* 

1...100 -10... + 10 '0'...'9' 
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type Intervalle | 



->| constante | — *(~~) — H constants \~ 



( iijU : constante s Syi «-jJ ; type intervalle ) 

j£s t (lundi, mardi, mercredi, jeudi, vendredi) f-j-Jl vym **» : Jli« 

. mardi ... jeudi J lundi ... jeudi fljiVl jjej^" 

frjJ kJj^*;_ 4.3.2 
. type UJoJl i*K)l 

| definition de type | 

> ) idantiflcflteut- | — »(T) — » ) type | ► 

( 9j> t_iij~ : definition de type ) 

^>~*j Jl lfe» 5^ »y J* J && Jl J*«ll p-Nl Jlwa-1 J& I j£» 

. . . i Cjlj*ii» tujvSj (J c i-^y f'ji *LtJ^I '. fjJl 

:' Jtu 

type reponse»(oui,non,peutEtre) ; 
chiffre-'O'. . '9'; 

typeS imple»( reel, entier.booleen.caractere); 
t y pe Ordinal- entrer . .car act ere ; 

( ijsjj '■ ordinal s Ja^ : simple s *i_j : chiffre s <~i\j>- : reponse ) 

vardig : '0' ... '9' ; uK* JJ- t var dif: chiffre : <jSU 
ik-lji viJJjj ^UjJl jUsJ ^jUj j_l^ JS^ij li^, iOs: J_jJ| ^Jl j^, 

. type boolean = (false, true); 

: its' (j^vjil ji- ^y> <oli t iiLJl cJJiiycS\ mj>j \jSJ» 
( reel i-i^ ».sU-J <_LU i L j* s ~>' ) var reel : real; 
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5jL_s \ tiLli l _j-Jt : _v ) var scalaire: (bool&n , enumerc) ; Ji 

. ( booleen 

JjjJrl jijSi - 5.3.2 

array [ JJ Jl ^J ] of oUijll ^ : gj^dl 
Of u-^ { UL^- Vj ( 5ja jj& Ofj^ j^l ) Uj^w JJjJl j-y ■>£; 01 j£c V _ 

. VjJj>- _>£> 01 j&c t ( Otf ^t ) iJ^-jJ^y, CjL-SJl! f^i 01 - 



| type tableau | 

— K^Ufi} - *© — i— H type ordinal | — ■— -*(?)— «<jr)-*(_typej— » 

— o 



■ ( u&j '■ ordinal s JjJb- : tableau ) 

array [ 1...6 ] of real : R 6 J &Z oLil-b-l 

1 

2 

3 

4 

5 

6 



. . . t Sjl^j^JU (-AiS 1 n i 0l>«>] CjL»^ 
Jjjjl ^ ^ 01 ^s 
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array [0..99] of integer "j 3 - 

array {'A'..'Z'] of real 

array [ (neutron, proton, electron) J of ii J*j - 

type reponse-(oul,non,peutEtre); &L* *-Zyu> {J> - 

chiffre-'0'..'9'; 
Tl-array [reponse] of Integer; 
var T2: array [chlffre] of boollan; 
T3: array [boolean] of real; 
T4 : array [char] of Tl; 

( Lcj : pcut Etre ; ^ : non i ^ : oui ) 

uiA** oy. *u* uu^ &J* o* ***** & csj*^ ^y J**^ 

T3[trui']:=0.o; T3 [Tl [ '5' ] ] : =0. 0; 

T4 ['8'] [non]:=109; 



JjVl JJjJi 



: ( -JaJ ^i SljJi?- v^ ) <J jj-kf <y Jj-^ y T4 

jlill JJjJI oLijll 



8' 



oui ■ 
T4['8'] < non 



peut-etre 




T4['8'] [non] 



Jl 



array [char] of array [rtponse] of integer £>JI a-" j* T 4 

array f reponse] of integer £^l <>" T4 [ '8' ] 

integer £>" a* T4 ['81 [non] 

I «, JJJI ^Jcdl ilrf xp b£c t %Jsr Jj -Jrl .-J,. JlS - JU- J- 1 

H] [ 
T4 [ '8' ] [ non ] J *jl£.y> T4 [ '8', non ] : Jli» 
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• (Jl ] of array [ jU^I t ^i\ ui/ U** J!>U J 4 b£$ _ 2 

array [ char ] of array [ reponse ] of integer : Jli. 

array [ char, reponse ] of integer J t-j\&>j* 



[variable Indlcfie j 



-* | variable tableau | — *(?) — x— » [ expression U — | — *Q)- 

— G> 



(j^*j '■ expression ( JjJ^- : tableau s JJj^^Ai. : variable indicec ) 

: 10 x 10 Hjjlaa : ihA 
M: array [ 1..10, 1.. 10 ] of real; 

: U-* J* J hjr 30 ^ t ^ U»j> 20 j!>U ,>• jji-l J So^-jll ujUII a^S _ 
array [(Fe, Cu, As, Ag, E), 1...20, 1...30 ] of real; 

* ^ ** 

f: array [ 0.. 100,0.. 10 ] of 
array [ (reel, imaginaire) ] of real; 

( JL*. ; imaginaire t JLi*- : reel ) 

array [ 1..60 ] of (oui, non, peut Etre); 

. ( 3.4 lju\\ j JUL* f^Jl <^^v- ) 
(article) SjioJl ,jij$f - 6.3.2 

JJj_j l^L j£r ^ 4JU iJJj iiJbst f-lyf ^ oL^jil »Ju <j_j& jf •_£? 

■ LP^k SjiiJI <—Sy> ,«»-<~i 1 c-*"^ Ji ' -1-^—j* 
I type article (sans varlante) | 




» | Identlflcateur r i— »C0 — * i ^P" I — ;L 

o — 



-o 



C53 
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: Jb> 

type date= record 

jour:1..31; mois : 1. . 12 ; an : 1 84 0. . 1 999 
end; 
modele= record 

code: 0. . 9999 ; enStock: integer ; 
miseAjour : d a t e 
end ; 
var stock: arr ay [ 1 . . 200] of modele; 

: an i j$J, \ mois i ^ : jour ; jjji : stock ; ^-iy: : modele s «j js ; date t ^AJ : record ) 
. ( j^i* : variante t ijS : code i <s£jl; iUJ J»~J> : misc A jour i ii** 

7-i^«Jl ^ tA^tL— 200 y ic-j*^ : Oj^st 
: gSji 




* ... °* 



deslenateur de champ I 



-> | variable article"] — »(?) — >) Identlflcateur de champ~|- 



( iyijlicj : variable article ; JisJJ ^ij* : designateurde champ ) 



0..9999yJl -j,^ 
integer *y]\ jay* 



stock [ i ] : Jli« 

stock [ i ] .Code 

stock [ i ] . en stock 

stock [ i ] . mise A jour 



1.. 31 £jx!l j» y> stock [ i ] .mise A jour, jour 
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(Article et tableau) JjJlJLlj s^aiJl 

Var plext: array [ (reel, imaginaire) ] of real; : JjJb>- 
Varplexa: record reel, imaginaire: real end; : S^iijf 
JUjc-.^J \*J jLtf-Vl ^ 4 plexa . reelj plext [ reel ] VeS Jl ^ajj L. IJla 

. ij&Jl ol-pVl p-lijj 4jj£ ^JJI 

: <-&£ ^JUI t s/loJl 
• ( jaVl aJ-l - x ) + T -^ _^p Jjf j\j^ = T [ x ] Oljip OU Jja>JU v-JU _ 

ijAii\ J x jaJ-1 JC&I + A -^ ^^ JjT ^ly* = A.x o\j* Oli S>iU i^JL _ 

var 7\- array [a..b, c.d, e..f] of /j> 

alors adresse de T [x, y, z] = adresse T (a, c, e] + 

(x - a) * (d - c + 1) • (f - e + 1) • taille dun composant +.. 

(y - c) * (f ~ e + 1) • ra//Ze d'un composant + 

(z — e) *k taille d'un composant 

( vf/' f^~ '• taille d'un composant s Jlj^> : adresse ) 

(compatibility) JJUJI o*ly _ 7.3.2 
( j^-Vl ^ ^JlJ ) ^yj| ^ U" T2j Tl _ f 

. oL^ll oJi*- ^j-Jj l^jd o"5\— Ju-ia Lpjj Ui" _ j 
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: O^jl 

type Tl : record x, y : array [ 0. . 1 ] of char end; 
Var a : rdcord x, y : array [ 0..1 ] of char end; 
b:Tl 

; <_o£j of t_~£ Jj 
Var a : Tl ; 
b:Tl; 

. (1.3) ^wdU 
(OUTPUT-INPUT) : £}~\ - J^-jJl - 4.2 

. jk-f JSLij JSL^. 4 oU- J>w> -jp U^y> j^aJl 5 ( JjjJrl a*^ ) 

1 ( L-*I ) reac * *Lr^' ^ ■■"^ ••Ij-*^ ^J^ (^*i ' ^y*** o^ ' i n P ut 
Jilj^ . ( t_jS1 ) write *l_/»-^l ik-ljj ijb53l 4PjL ^ c gj& ^ «. outputj 

; « ( j/> jv% . II a-lA 



Jul?- JUjcu»J 



cAslkJl c-l£j\Z 



G 



,UJI 



il 



U~^ 



iLUI 



cM 



£>' 



oljif t l^L^c^l JU- Jj g-^U^Jl J <■ outputj input ^j-zaJl Jj-& 
JuixJl Xp LiJ^wo aS^Ap Ols iii!Jbj program; ^jj-^aiU Ja^j^ j^u jl «_^j Vrj^ 
read liL- Si^dl oUI^I Sk-ljj ^Ui- jJlj UsMJllI SbVlj Vrj^-I ^' uu 

. ( . . . eof t writeln t readln <iUiSj ) writej 

. 6«.|jiJJ Nl JUjc-I -j£c N : inspection kA*j> oLsJL j* input ^yaJl 
« i.kS0J VI aJLjcu-I *j£c V : generation gub; jLilL j* output ^yaJl 
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o Ap-Ij Aa^j i **i3l <iJLJL»X<o <ja*J> SJLJLjI As^IJIj J^aJI (J -UJl lIjLJjI Tta^J 

Jl SiiUl JvaJ 1 li] VI USOr J;JI Oj£j ^((5t« «input» ) &jIju> oUJl J 
J siibJl cJlS" lil V| l^jf JJl jjSC V i ( ^li« «output» ) ~U: oLiJl J 

. LP^uJl JUrfJ /j>x»Jll /w« AJl (_gl 4 AptviJl ^If- 

•U^JLlI IJl* i»J 5i^tf t V^' ^r^' ^'^ ' e °f IV* - ^yJ 1 ' aJIjJI ?t»*«j 
Jj> eof (j-J^ ' -^s-'J bj-k Vi^ **-* • ( ^js^"^ End Of File) « Jjj«*J1 iAf » 

. input jj^aJl 

eof (f) = true 
fj^~ll>^ (write) ilrf <= { -^.^Lsj^ 

eof (f) = false 
fJ>«Jl Jp iff (read) i*lji <* { ^U. iLsJlj 

f-jiil -j* C j-J*ia *m 4 input (Ur«— Jl J ojjj^I.1 oL-JI J53 c*-l^* : Jli* 

: ( iw ) char 
While not eof do begin 
read (C) ; { . . . 5*j^l i**Jl JUjcu-I } end 

dj& V of -t^i ) «noteof (input)» j «eof (output)» L>JJ j^SO t iluJl J 

. ( LpjU input (jrfiJl 

(Fin de Iigne) JxJ\ i-V - 2.4.2 

. JaJ J&J J5^« t OL-Jl ja J*w, ^ ihS - j* .j^Jl 

UL— • tiyJ.1 *I>>-Vl JU*i~-J Jjjl» *jp jkJl i>V i-ij*i t gJto ^ ^ 

. ^kJl il^ eiiyaj ( rewritej page £. ) SJLs-^l iijiJl 1^1 i writeln 

t SJUUJ a-^« J^ Xpj i eoln U~~« ii^A\ aJIjJI £•— j t fcjl*« ott)l j 
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<^Jii\ eoln cJa^T JU- J ( ajjJLSCVLj End Of Line ) ^k-Jl il^ Js^lll i»J is^xx 
« jk-Jl iAf j) ,_^»li-l t _ r _S J i.l IJU . (espace) Ac-Lj ^ o*jyll k^J\ jU t true 

UUjc-I I i| Sll « JLpU i) i/pU!l v-^-A 1 a* '^V 1 ij 5 ^ "^ ( "^ ^ -P ^ *Jj** ) 

. eoln iJljJi 

: input J>^JJ JUl iSy>^3 cnar fj^' l>° c j4*^ <*-* : J^ 

PETITbAbPETIT, 

bl/OISEAUbFAITb 

bSONbNID. 

( b >-JjJ-L; JlaU5 i«-Jl Jl U^.j Lof cuj- ) 
while not eof do bejgin read (c); write (c) end _ 1 

PETITbAbPETIT,bbL'OISEAUbFAITbbbSONbNID.b 

2) 1. while not eof do begin 

2. while not eoln do begin 

3. read(c); write(c) end; 

4. read(c); write('l') end 

PETITbAbPETIT,!bL'OISEAUbFAITb!bSONbNID.! 

t 3 ^kJI J t read (c) ^JuJ Lx* Jj^l lyAi «true» *w> eoln ^a! ) 

Or £• J*!^ 1 -^Ldl « ^Ua^L » 4 jkJl J read (c) ~--J (^ ' c = ',' Ju !l 

. ( . . «JI t ^kJl 
. tk>-^A eoln ftlOJ oU ?tvo eof i^JlS" lit 

readln, read : JsJ-jJl _ 3.4.2 
Uj-^ <_9^*ll *I_^>-Mi uli t ( input Ji« ) ijL« oLiJl J <, ^ Jp <&Ja; jup 

: 5elji 7c«^wj read 

<■. ( iJUl ifcJI Jl j* [J Jiux^, jj| t aiLJl J s-s^jil dlL" ) iw _ 

* **^U Oi^LJl jl*-Jl ^.Irj o*U)1 JaU£ |Wj : i«^ ojjb J « t ***«-^> iJ* - 

. aJJUl (J ^c^cvaJl iJluJl ^ i»*u ^j>-j fJlP jji »*ljill (_«S_jiJi 

Var a, b : char; i, j, k : integer « : Jb> 
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«bb - 12bO* 1 ». 



jUUlI. 



(i.j.a.k.b) Oli 



i = - 12 

J =0 

a = '•' 

k = 1 

b = '.' 



J»* 



{ i*jilJ (jCiiLJl jJa*Jl iAf-j JLeLxJl JaU^ ^j_ \ iOlp OjJb jl rut t i^^" A-** - 
. aJiUl (j t yLibM iJjJl ^ 4a*u ij>-j /»-Ap j ji o*i JUI l_iU«Xj 

J Ajl^y. rearf (v h v iv .., v„) 
begin raw/ (v,); read (v 2 );...; read (v„) end 

. /j_**l.l ^»Jcil )U> {j^JuJJ <UujJu •UjLvJU saj^oLI <L**2Jl Oj>J ll)l <~-^~ ^ "^l 

JJj t ( !>Lifl ^jJ^j ) ^Ijju f-jjl ^ i*J 5*1 ji; Read ?*»-»j V : &>■'%> 

, J>— jf Jl L> c Jj-l^- t <&y»*r <■ (Pointeur) 

. iwiJbrf. /jjjScj oIa^JI L k»~» f </»*?" * 
a-^j J-* J^»j«i t (j^Jl J-^ -1="* J-.lallj readln UL-j (-JydJ tl^r^l d)| 

. <Oj*-J Jb- J 4 ( ^k-Jl ijLfi jjJasi (ji| <_£*; ) Jbii jkjl 4jI **; J*- oiiUl 



| entries | 



JeJlSUjA rearf/« (v/,..., v„) 
begin raw/ (v;);...; read (v B ); readln end 



HIED- 



| readln j- 



-*© — fH v » r|ab| °1 — r— *CD — * 
— O- 



( jJj^jJI : entrees ) 

writeln, write : £^-1 - 4.4.2 

i^_*ll tl^^l d)LJ 4 ( Output Jlo ) *b" oLiJI j 4 ^ J* 4iJaj ^* 



<ub^l» ?«->*> write 
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J^j«j ( write (e:l) <o| ) £♦*» J£ji Jp e i»J itbS Jp write (e) J**; <■. iw _ 
. iw J£J Jp e i<wi *i -yy <, -LpLj n-1 oUS" Jp write (e:n) 

aa Ja*j write ('a', 'a': 2) : Jit* 
*!-!»■ write (e:n) *il)eJ cfr^l Jr^' "^ J* w " te ( e ) J-*^ • ^ >to ^ iJt<> - 

Jpldl -y »_jL U jJi U^~~« t e J lJ^t-jJI J~*J' *i^ J* w " te ( e:n ) J**i 
OjSo c n ( - i«%Jl Jilj ) A»j$\ j^ (^Jk^ lij . i«— . n Jp iAjJI j J_^*a>JJ 

12- 12127 Jvu write (12: 2, -12: 4, 127:1) : Jit. 

<1~?~ write (e:n) «Uj ) -JU JO Jp e I*J iLS" J* write (e) J*ju s ^^w- jOp _ 

. ( J.wcuJ.1 J^l i_wU-1 ij^o n jLcS 
n ejl jpldl -y iJLfci lij**** t *jU JSLi Jp e i»J ibS - Jp write (e: n) J*-*j 
. A*^iy rtJLw. <oLi t LilS'^p iw. n Jl Ai>- jlS" I jj . Jb^lli i*^ 
•y i£j~£i\ *— SJJ j»ij d « t c-jC JSLt J* e i»J its' Jp write (e:n:d) J^ 
n Jl JJb- ulS" li[ . JU-VL i«— n *Ji OpLJI ja jJp dUJ J~j S csyUJI *._)i-l 

, 4jt£*jJoJ *^£<-» 4jli t Ljl5 j*P 44~>> 

. *--J>Jb dJJjj e jUJLJi ■y i«— x Jl XA£ Jp write (e) Jloju i JLJL. _ 
("J^i L* J- 1 ^ Uj^-o t e JLJLJI ^ dL« J_jf n Jl hbS Jp write (e: n) Jmu 
. x < n JU- J t Iv~> n /y j£>- Jp J_^s*>JJ JlpLJI ^» 
^^wJl ci^-L ) 'false' JLJUI j»f 'true' JLUl hbS Jp write (e) J*ju t Jjj - 

■ (j^'jf 
. JULJl JU- jt, \$ i !•*» n Jl JaA-I A~*jZ Jp write (e: n) ( Lju 

J ijlSCay. write (ei, e2, ... , e n ) : oljUasi-[ 

begin write (ei) ; write (e2) ; . . . ; write (en) end 

JJ^ i ( JjJl IJp L« ) iiJju" fjJl ,y *aJ ibSi write ™»^j ^ : 5ia>-% 

. J>t«ijfSj5J <, JjJ^- ip^»jf ; (pointeur) 

*V1 J-* J**i ' o 1 ^' J-* ^"* Jt^'j writein La^^a uJ^Jil *lyVl u| 

.>JI 

J a J15Uja writein (e [,..., e n ) : oljLvaa>-] 
begin write (ei) ;...; write (en) ; writein end 
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for x: = 1 to n do write (' * '); writeln 
: ( + )£*:£%» ii j^p ,/oipj^ t >-«> J-^j-k^n^p^f : Jli. 

._ + ... + ... + 

for i:«l to n do begin 

for j:-l to p do »tite('-'); write(*+') end; 
writeln 

( 'U-* jyt* * c ) oLJajJ.1 i^J j*i ; Jlio 



while not eof do begin 
while not eoln do begin 

read(c); unite(c) end ; 
readln; writeln end 



(miseen page) H/S-MI j\ ob*fe,a)1 V?V - 5.4.2 

£_/M J^— OjSo U.UP t 4>«A^aJl ^^ks^li page lJL-v« kJyd.1 frljsr^l i~~~i 

. jj^lo (peripherique) J>j*i jL^>- J*> U-jJn 

(, r-j_>JJ io^vall Sj^-Vl ,j<a*J ,VJ i *J i/l oLwiU-l jjixj (Jp ; ikp-^A* 

5 tijjJl *J-^ C - ^ **-«£' *4^" U^ ' ^jJa« jj£ jb~" J53 Jj^l i»-dl 0^ 

( -^ ) ' ' 



(j-*) 



0' 



. ipUUl JJ ljk~* jjisl 

. l5jjjI (*-d"A*! •j**" 

t £>«X» : Jli« _ 6.4.2 

y = p-^jl ^ i iiliJl Jp jl ImIUI J* j>d ^yu ^j J* Jj-«=M j^S 

«-iu 1 Ijkui 130j bjjlc 80 jj jU»l j^^i «. sin(x) 
* 1 oil * — 



*1' 
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JbUaJ^I x, yj ( ^»l* ) Y 4 ( jk- ) X oLJlJb-NI On ' oli^Ul dij \iX* 



80 



X 



130 



py 



- i 



+ i 



px 



4 n environ 



soit Y = 1 + 79 • (py + l)/2 
py = sin (px) 
px = 4 jc (X/130) 
DOjIl.y^o-X 



oUjj>JI 



^1 



BOJJl^XJ 



jj^UJI^j : XJ(80...1)Y. 
^uJl^ij : (130...1)X. 



Y*-XJ 
3.14159 = pi _ 



y = enlier (1 + 79 * (py + 1) /2 

•py = sin (px) 

px = 4® pi*X / 130 



program cour be ( output ) ; 
{ iwlUl jf UliJI J* v~M ^> p—jl } 
const pi=»3. 14159; 
var Y: 1. .80; {^r^^j} 

X: 1..130; {^Jl^jji 

px,py rreal; 

begin 

for X:-l to 130 do begin 

px:-4. 0*pl*X/130. 0; py :=»sln(px) ; 
Y:-trunc(l. 0+79. 0*(py+l. 0)/2. 0); 
writeln{ ". ': Y) end 
end. 

( ^i. = courbe ) 



| sorties) 



(writelnjf write) ^-^-l^ 



I — » ) wrlteln) - 
-I — > | write | — 



-d> 



■O 



-»| expression f- 



L-0-[ 



expression [- 



( r-^-1 .* sortie t juu : expression ) 



Lq^[ 



expression 



<j>U 
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dJWl J*m)I 



AjA\ 4^l~> : a^JLJl J*\j» 



I 4jj*tj J aj*i> «jLp 



begin end — >j iSy s^l* 



if then else 
case of end 
repeat until 
while do 
for to do 
goto 
id (...) 
with 



~"H uj~*S'J 



— * j *IU-lijLp H 



-J ii.ji 5jLp I- 



u o jLp- 



j^SjLp 



- H -}«ji» I — 



( iv >' ) -)j^ iM 



*lj^-V *IJU ijU 



I — > j yij 



L^ 



>* 



■ ijiji^ U>«"~* (V 4 77* "jj (bloc) ej^i i—iJuj 

(Enonces) oIjLp _ 0.3 
jl>-j_j : < _ 5 la3-l i_Lp_jJlj ^ M Ty^ji ji pjj'_>**i ij^ 1 ^*"' cAjI~J-I A-aj 01 
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action 1 


" 


action 2 



sequence 





action n 


k 
i 
I 


action 2 


, 


i 


action 1 



*) 6noncft 



^ 



conditionnelles 

if test then action 1 else action 2 

case test of ... end 



iteration 

while test do action 



t jU^[ : test i SjUp : enonc6 « J-JL- : sequence s J^ : action ) 
j ,\Jr\ : procedure i oli> : condit.onnelles i ^J^f : iteration 

. ( iJb : fonction 
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'' 




acth '«i 1 




" 




action 2 





iteration 
repeat action until test 



action n 




action n + 1 



action 1.1 



action 1,2 



action l.n 



action x.l 



action x.2 



I 



action x.n 



y 



v 




i 



action 2.1 



action 2.2 



l 



X 



procedure 

et 

fonction 



action 2.n 
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;LxJl /yi LJL»~* ijS"jil OjLxJI p-^f- 



■nonet compost 



♦(begin) — | — >| enonct] 1 — » (and) - 



-r— 1 «"< 



( i~fy> SjL*- : enonce compose ) 






tnonct vide 



( ipjli «jL* : enonce vide ) 

begin a : = 1 ; b : = 2; end : J&> 
i oljL* 3 Jp ^j^ l^L JliLl IJLa J S^jljJl iLSjH SjLJl <J^>- -j* 0^ 

(Affectation, expression) j^-ju «, Oi^" - 1*3 

—i — »(]£) — »| axprassjon | — *■ 






I anonct d'affectatlon | 
— > | Identlflcateur | - 



f) — I — H »xpr»»slon |- 



rg 



-♦O — < \ IdentlFlcaUur 

<D- 



( <Syu> : identificateur s _^6 : expression ; Cjh^ »jL* : enonce d'arfectation ) 
«j> « ,jvj>cdJ iL~JL iijL~z» » jjSo <1>I i_^- i T2 £^Jl ^ t jwull i»-9 <!>[ 
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T2 gjJl & U^b i ( (V) 7-3.2 >l ) dtfjl^ ofe dl*ji ^ T2j Tl _ ^ 

■ T1 Jr* i>* 3;a> * 11 *-^' *J*^ ^^V 

. JUeiJI ^ of j^c i4«ll *p^-JlIj •■ OtfjLi- O^J^f U ^ ^ T2 J T1 - J 

. ( OUjUu JUUL IpjJ U» T2, Tl -_» 

: Jli- 

type T»array [char] of boolean; 

var arinteger; b:real; c:char; 

x:T . y:'0'..'9'; y:array [boolean] of T; 

a:=. 3 (f) r^ us~" 

£.• = v (r) r 5 ^ <J^* J * i 

x /VAr (W (y) + ord ('a' J ~ ord ('&))]:= true ^ u^ > 
a:= b (v)'t> u Oi* 

c: = a 6) <-J^- <^ 

y [false]: = x (t) r^f~> its" 

IJla oj ) L"b ^f^>jf U S^\ jX! t l/ iifc- 30*1 ^^ JO* j-*! ^ u 5 ^ 
^JLz* j* ( OjiJI jIJ*VI ) aSjUU olJUi ilU-l .1* J J*.*-. -^ viUi </^> 

; ^ JjOJ U*p *l^ 

: <— x& vj u |»J Jj-^J 
t: = u;u: = v;v: = t 

Jjtf- 1.1.3 

u: = v + 1 a^\ SjL*- £» J^Lk. c JJUJl -y> u = v + 1 Jt. lk~o U.^' u| 

: u iUL-xJJ ( *1 ^1 Jl vixH ) jl>JL ^Lydl jl 
0= u JjTju = f(u, ...) 
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u:=0;...u:=f(u,..) 
_; iiyJ.1 Fibonacci iLJUx* ^ JjVl ajJli-l uiL> JU^ bjf ^j&J .* Jli» 

fo = 0, f, = 1 et ft = fi_, + fi_ 2 
(f 2 = f, + f = 1, f 3 = f 2 + f, = 2, f 4 = 3,...). 



,^«ll 



t^jUjycJt 



fi:iJ(« ? »^>)F_ 



10JJ2 l> .iJF,'fC,i,') = '^l = 

1 = F J jf 
= Gjjl 



F = F+G 
G=~F 



C-j<Jlij IpK oJj_«ll fi-2 *-iJl (( -jj^ivXJ J G 4ia_~«j iJLJL»l* JU^J *J XJ>) 

! JIS^UI ii) <_JI SjJiU -t^ j& V .^ f = f + f ibf OU J~«Jlj 

. f,-i Jl 4.l,",l„,;. Gj fi Jl iLJLa. oi| ^ F 

4~JiJl Jlj t G <-ijjjCI -^ (jSC^J ( _ 5 SCJ F J lsMl\ 1+Ji}\ Jl *»-U*j bJli dUiS" 

: t "apL^> t^ijxjt Jl>oJ Jl (^jJj U IJia i F t-i^xJ G J icJL2Jl 



2 


F*= F+ G 




J 


G = / 




i 


T= F 




program Fibonacci(output ) ; 




{ Fibonacci iLJL_i« y JjVl JjjJ-l >-jL«?- } 




var i: integer; 




F.G.t :integer; {F-f(i), G-f(l- 


•i). 


t Jlc-L-» j*Za j 




begin 




6:-0; F:-l; 




for i:-2 to 10 do begin 




t:-F; F:-F+G; G:«t; 




writeln('f(',i,')-',F) 




end 




end* 
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(Expressions) oIj~ju_ 2.1.3 
iSj\jJp.j (...<. £~>\y i olj-Au ) (operandes) oljib. -y. UjS^. *yj 

i_jL->JJ SwIpU JjJI>wj^wcJI 7M-J i (operateurs) 

0| i ( **j-+3r jf t *A*>- <■ ~*tx>S ) **** c^»1_ptsll {/> J& jj^u 01 4-^- 

: iuaiUJ.1 oLa-wabU 4_-J^Jl 

5 (^)noty)ll_ 

; ( div, mod, # , / , and (j) ) v_j^I <^> - 

i ( - t + ) oU^UJlj ( or ( jt ) 4 - 4 + ) ^*Jrl «^Ijjj* - 

.(ill4>4>=4<>J<= t <t=) «U)I oljJ> - 

• ( ( ) ) ix'j*^" ^ a -"'j J . pes**" '■rsO' 

: at.t 



a+b-c+d 
a+b*c-a/x 
a/b/c 
a/b*c 



45* 

ci*" 



((a+b)-c)+d 
(a+(b*c))-(a/x) 
(a/b)/c solt a/(b*c) 
(a/b)*c solt (a*c)/b 



: JLJI jSLiJl > SL-- &\j~»lj Jj-^ t J-lj* Jl^w«=ll fj£ 



I exprasalon 



->| axpraaslon tlmpla 




-»| expression simple | — 
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I axfrraaalon simple | i — »Q*J — 



U0-) 



'r—r-j tW"i«T- 

-o — 



- — * ( facteurf - 
_©, 

KZ> — 




h5> 



-» ) conrtanta sans slcna ( - 
— >| variable^ 



— »(T)— »| axnrasaloiT] — »(T)~ 
I IdantlflcaUur da fonctlon 



1 — •© — T~* l axprasslan | — i — ^T) — t 



["constructaur d'antarobla (- 



sans i c-LS : eonstante i J»U : facteur i i~ : terme s i_-. : simple ( j^*J : expression ) 
: coostructeur t SJb ; fonction t <J>*« : identificateur s j^* : variable j i-Ok> %i : signe 

. ( *pj*j* : ensemble t J-^- 



x 

15 

(x+y+e) 
sin (x+y) 
not p 
'HELLO' 

x*y 

1/(1-1) 

(x«y) and (y<z) 

k ttod 2 






jjj^ 
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p or q 

x+y 

-x 

i*j+l 

x-1. 5 

p=q 

p=q and r 

c in teinte 



<Ua*w ol 



l JX*> 



'l«JU 



Jtf 6 J* cSj^ S JJ-^ t^JJl Jfl* J* cS J*": ^i 5 tiJ 1 ^* J* J^ 1 _P«J Jl 

: XoL*^ ol^Jj* _ 3.1.3 



fU^CJf 5>jj 


Oljitll £_ji 


U**Jl 


j*J» 


?<AV 




c> 


- 




^ 


+ 




*r0*^ 


* 


J^- 






/ 


25**** 


JxjS^wJj T^^P 


A^*jjPt*,£» 4^**J 


div 


rc^^js 


zr-" 


jLa* 


mod 



0.0 = y cJtf lij Jalp jj£y ^ ^J| ■>• IjJb ^» x / y 

= y I SJ isle ^ x div y 
j ^ I jj Jal* jjk i mod j 
: ^u j < j i =s cJlS 1 Jb>- J 
i = (idivj) -* j + i mod j 

i mod j jj> j _; i 4** i J-^>U~ oj 
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7 + 2.0/4 (1 -* 1.0 , 4 -* 4.0) : ( _ s 2^ yJl Jl ^^ 



UjJ CjI jJjrf . 



49>*£jl f-Jp 


oljftil ^ 


*JL*J| 


>j» 


Sy. 


JjHJii^ 


tJoP 


0) 




ob 


4* 


^ 


<"*> 



p and 9 



por? 



\ q 
p \ 


false 


true 




/> \ 


false 


true 




P 


not p 


false 


false 


false 


false 


false 


true 


false 


true 


true 


false 


true 


true 


true 


true 


true 


false 



l^ip f-jiZ <£j>-\ cUljjyi ilL* . J_jj ^- jj iJujO^l! ijjL&Jl olyjll Lji.1 

. ( . . . ij-'ili (ou exclusif) o^a^ll jf ) 



aSIUJI oljJ> - 5.1.3 



i>twj| f'ji 


cAjti\ jj: 


iJUJI 


>;i 


Sy. 


JUL- JS 


J jL«4 


= 


* * 


<> 


0-J 51 


< 


^ 


> 


JjU, jTj.1 


< = 




> = 
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t = t > = t < = ( 7,3.2 Jut ) ^Uu ^Ijf -^ o^Sj ul otjJtLl Jp 
J* J-P^" <> j = s ( 1.3 Jiif ) oIp^^JLI Jp oIJ> ^UiS ^ in, <> 

. ( 6.3 Jil\ ) (Pointeur) JJj ^IjVl 

\j~~* ii'jjui Jlji _ 6.1.3 
JljjJl al* ojii t Jljo JSLi Jp i.iu oljij* i_iLaj c oljljll bJL* Jl 

(Fonctions arithmetique) ioL-a- Jljj 
to^J JljjJl o.U Jarf i ^^w jf ^SJb- .I^JI Jp £jj| ^ x Jtu Jp 

. x j7bl! £jj i^dJ jjSi J^>a- sqrj abs I Js- U t « ( JLJb- » 

x J (^>«v» jl ^j^Jb-) iiUaLl i*ji]| i_^».-^ abs (x) 

' f - - * ' 

x ( ^>«^> ji u jua>- ) ^yi t_-«si sqr (x) 

( uLplJL x ) x ijljJl v.^. <__*£ sin (x) 

( ^Lpl.^ x ) X AjjIjU f LJl cJ>. >^J. cos (x) 

x JU ^jj) OUjIJIj 4*^1 i_ — >J arc tan (x) 

e x i_~Ji exp (x) 

x>0jl^J t X J J*Vl pijlPjUl ,_w£ ln(x) 

x>0JUJ t xJ^Ul^ t ^^| J JJ r .| ^^i sqrt(x) 

exp (y * In (x)) : x y iji Jl ^Jl SiJS ^ ) 

(fonctions ordinales) 4-J~V Jl^i 
•Jj^ ci" i *c il1 W * £>JI cr* iy *>~~}\j i ^^ £_^ ■>• j*j*I j* x : succ (x) 

( ^"J M ) X -> ^lil dUi -yi ^f S^U, ^JTjsJl UaJ* 

Oj£j ^Jl i^aJl 1^1 t ^Jl'^ -y, i^lj , ^^ ^jJ ^ j^-jjb x : pred (x) 

( iy-J lil ) x _. ^ULl dUi -^ jif s^JiL, ^^1 UjOp 
t>^^y x ^ J^»U i £*>~* tj> ^a t ^j^\ a juJI J^ : ord (x) 

Uao* dj& jJl i^Jl t ^^ gyj| ^ 4 x j^dJ UjUoLI Jp jLj : chr (x) 
^>^» ^ chr (ord (c)) = c ifiUl j} . ( J^J lil ) x i*J ^* ^Jl 

(Fonctions de transfert) J&Jl Jljj 

: (( ^y^ai\ p~Zl\ j Jp J^^J UU c ^y^ ^J| ^ x ^ °£ . tmnc ( x ) 
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X & li| X J 5»ij3waJl ,-,.-Jii\ 
x < I il abs (x) J *t~>**a}\ **-i)l _ 
•trunc (17.986) = 17 : OlJ 
trunc(-4.3) = -4 
: « i_jyVl ~>waJl jAxJI » ,Jp J-^-j UJli t ( _ 5 i ; i>- pjJl jy x jjS' : round (x) 

x 3= lij trunc (x + 0.5) 
x < I il trunc (x - 0.5) 
round (17.986) = 18 round ( - 4.3) = - 4 : ill-t 

round (3.5) = 4 round ( - 3.5) = - 4 

var i : integer ; r: real : JlL« 
r : = 9.6 ; i: = (trunc (r) 4- round (r)) mod 2 

1 (_^jL«j i 

(Fonctions booleennes) S_J j> JIjj 
l^li *yij 4 \iyL*y> £^>wi!l P5JI ,y Xja-xJI OlS lil ( jws ) true ^jLw" odd (x) 
. ( abs (x) mod2 = 1 ,y> odd (x) oi ) ( tk>- ) false ^jL-I 
: ^j^aJlj o!A^—JI Jp eolnj eof JljjJl J-J^ 

f J^J! ilfi Jl cJU-j Ji SJAUl ob ^ eof (f) 
f ^aJl J ^ko. il/. Jl eJU>j ai SiiUl dt> (^ eoln (f) 

input J^-Jl jA J>j>./?dlil ijb (^>u IJ4J f -k^jJl JjiJl lij 
. iJkw i*jij u^H-r 31 J^'-J ^^ V 1 —^ ^^ -kP* 5 " 1 V^l : ^ 

program lignes ( input , output ) : 

{ l y^ J JI j-U-lj Odill 1>>^ ) 

var x:real; { oLpljll; i-!!k« **^ } 

begin 

read(x) ; 

writeln( 'x':12, 'sin':12, 'cos':12); 

writeln(x:12: 5, sin(x) : 12 : 5, cos (x) : 12 : 5) ; 

wr Iteln; 

writeln('tg":12,'cotg':12,"racine":12); 

writelti(sin(x)/cos(x) :12:5, cos(x)/sin(x):12:5, 
sqrt(x) : 12: 5) 
end. 
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; i>wUJl 7"L> Jl IJLa 1--j 



fS^JIJs- 



X 

0.10000 


9 la 
0.09983 


cos 
0.99500 




tg 

0. 10033 


cotg 
9.96664 


raclne 
0.31623 


oL^jiJl-2.3 




if test then action 1 






(OH* t>( 


il ) si ojL* ) 






if test then action 1 else action 2 



case x of 

Xi : action 1; 
x 2 : action 2; 

x n : action n 
end 

( ilU-l SjLp ) 



n cH 



( jL^-l = test s J«i = action ) 
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(Enonce si) lil SjLp _ 1.2.3 

| flnonc* «l | 



-*(jD — H axprewlon bool««nna~| — t (th»n) — » | « nonet U — » («lse) — »| tnonct fa— * 



(5jLp : enonce s JjjjwJ : expression booleenne ) 

JLiJ then J; ^\ XjL-jJI oli t ( kw» ) true i«JjJl Jj-JI ^w»iU o\S I SI 

t oi>-j lil t else Jj ,jJl SjLJl oU t ( tla>- ) false ^ujcJI i«J cJlS" lil Uf . UJb-j 

. l»Jb-j JljCj 

if x<1.5 then z:-x+y else z:-1.5 : Jli» 

If j-0 then : J^ 

if i-0 then wr iteln( 'indef ini') 
else writeln ('infini') 

else writeln (i div j) 

. else _j ilsjjj^ -Uj c~~J jdlj i-jjiVl iiLJl then Jl Q>y,j> else J5 OjSi 

: i^y SjL-^ Oj5o t else j»^J j\ then ^— i (J oIjLp- SJl^ oJb>-j li| 

if C then begin SI; S2;...; S„ J else begin Si; s 2 ;...; s x end 

- if B then SI else S2 Oh J»UM »-*■ V : ik^^ 
if B then SI; S2 

; a < b d)l (JSLij i bj a ^jc.n.ji >— Ji J Jb J ; Jliu 
if o > b then begin c:= a; a: = b; b:— c end 

4_Jtf 4 (mn) 4_2Jj c (h) ip-L- J£Jb <J^ ) Oy*- cJij L«w ^^xiJ : JU* 

. ( jlji jl&j CjcZJ* ( ^10 j2 cJ^JI IJLa Jl ^-1 t ( (s) 

program heure ( input , output ) : 

{ Ja« Oij) ^ 10 J 2 ^1} 

var h,mn ,s : integer ; r:integer; 
begin 

r ead(h ,mn, s ) ; 

s :»s+10; 

if 8>=»60 then begin s:=s-60; r: = l end else r: = 0; 

mn:»mn+2+r ; 

if mn>»60 then begin mn:-mn-6 0; r:=l end else r:»0; 

h:-(h+r) mod 24; 

writeln (h,mn,s) 
end. 
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enonce ces 



(Enonce cas) 5JU-I ijLe- _ 2.2.3 
0— 



case) — »| expression | — > (of ) •• *^ — >) constante }-| — »^j— »| enonce [ 






T^T 



-»(_endV 



( ojU : constante s j^ : expression 5 ijLe- : enonce ) 



^jC- j_j»j (^jj| iiU-l tljlil isiljll ajUJl JLio J} (-pjj «0*J I jwcJl (t^jAi *^ 

l^JUI t^j^l Pj-Jl ,_r«AJ cyj *&£■ ^^1 ^[y J^ <J J^> *->F t-^r . i*jill oJL* 

■ iSjW^i j* end Jl JJ « i )) ol 



case catactereLu of 
'+' : x:-a+b; 
'-' : x:-a-bj 
'*' : x:«a*b; 

end 



( SejjJll i»~JI : caractere lu ) 

var operateur : (plus, moins.fois) ^^aJl ** dliJS J 

case operateur of 

plus : x:-x+y; 

mo ins: x:-x~y; 

fois : x:«x*y; 
end 



( * : fois t - : moin s + : plus s Jy> : operateur ) 

if a<b then c:=«a else c:«b 

case a<b of 

false: c:«b; 

true : c:»a 

end 
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: ^Ji\ j* p, JS - J *, f LSJI ^ ^JJI J~JI ^H : J^ 

program semaine(input ,output) ; 

type jour-( lundi , mardi , mere red! , jeudi, vendredi, saaedi, 

dimanche) ; 
var j:jour; k., n : integer ; { j-ord( jour ) } 

begin 

read(n) ; 

js-lundi; for k»l to n do j:=»succ(j); 

case j of 

lundi, mardi, mercredi, jeudi: writeln('au travail'); 
vendredi: writeln(*au travail, pour 7 heures'); 
samedi: writeln('on sort ce soir'); 
dimanche: writeln('on tecupere') 
end 
end. 

i ~J-\ : jeudi i ^UujVl : mercredi s .U^UJl : mardi s ^Nl : lundi i {y~*\ : semaine ) 

: pour 7 heures s J**)l Jl : au travail s J^Vl : dimanche s c~JI : samedi 5 i.^-1 : vendredi 

. ( Lily ij^-i : on recupere s *U-1I IJL» £>J : on sort ce soir t l>UL» ^J 

c-jIjj i*Jli ^ irjU- *~» 4 case Jj ^JJl j^dl -U-L. Ux* : ifa*.*** 
SJLpUJI jLUI £jL^ ) lJUJLi J*aX~J <. oV^II ,>« J . JaU I J_«i c ilU-l 
j^ oVU-l J* ^J- otherwise J else _j «l»-.ju 5jU : JISL-Ul oJJ ( AFNOR 

case op of 
'+ ' : u : « u+v ; 
'-': u:=»u-v; 
else :writeln( 'o per ate ur inconnu') 

end 

( J_>#* Jy : operateur inconnu ) 

if (op-*+') or (op-'-') then 
case op of 
'+': ur-u+v; 
'-': u:»u-v 
end 
else 

writeln( 'operateur inconnu') 



; J»J,I Aijiaj j\ 



if op in [' + ','-'] then ... Cf. 4.4). 
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(Iteration) *J j\^3 ihj* _ 3.3 
: jj*j» J5wi ojLc- JLiuJ f}Jf 4j")U JISL-UI &J ,j^_/u 



r " \ 



jLU^-I 



(>* i£~ ■"• 



V 



while ^v* 

<<»| g;f D-l J-^-l 

I JUl U-l 









j^'M 



repeal 



-lj-^» i_3j^iv* 



J ijLf- 



for id = ij^kJI to Jj^»jJl do SjL* 



Vj-k>- 7 T iyiii : JUu 



I Ij^- «il 



"-r* 



^| i^-^-Vl 1 ^ « ll <Jti V t (t jUjIju <-XSy » : (Exclusion) ^Lvay^/I 

i > t 

L>- Ji4 ci-i-llj iJL~JU«^ JjVl JbLl -_,p iL&J\ : (Inclusion) ^..^dl 



. p^y^-Ull i aa_jjJl li,- ^w^I go to (branchement) 

(Enonce repeter) j jS" SjLp _ 1.3.3 

I finance 1 r6p6ter ] 



-» ( repeat) — * — > | Snonct | 1 — » ( until ) — > j expression boolSenne | — ► 

I — <D— J 

, ( SjLe. : enonc£ i ^yj^ : expression booleenne ) 
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true i«-iJl Jj>Jl ^rv*JixJl J&-L j>- Ij'£j> *2jjaj oIjLjJI iLJL»i« JLiJ *^ 

uLxll JLhj 



OLi Vlj ) JjJl j*— »cJl a*J jiJu" oljL*Jl iLJLo* «.,.ia.'....J of i_*£ : 4*^| 

repeat V = f (V) ; cond = g (V) until cond 
( J»j/i = ( condition J jUirf-l ) cond ) 

( <Sj£*e- jJLp ) numdec : JUU 
L^Lic Jl 99999 -j* Jjfj l^-y h^s^/a V 4_ljj i»J Jjj£ JoJ Ujf ^j^J 

. ( oU-w J£-S J* ) ^jA»Jl 

^j tl t iU-'yi j^j to O^o li-P- «t4 t3 t2 tl t0» ^j^jJl Js.to.-J I V i^SjJ jj 

ord (t.) - ) J,jkS ) ti \^is j)\ i*Jd\ o[ . 10' J-U1L -^l pijl t, t olyull 

: ^^(ordCO') 

(v div 10 1 ) mod 10 : to = chr (ord ('Of ) + v mod 10) 

t, = chr (ord CO!) + ( v div 10) mod 10) 

U = cAr (ord CO 1 ) + (v div 10000) mod 70; 

T (Suites ( *ljjJi Jl ji« ) {jCjjijSz jeLA~z» i-ij-^ Jl iPji \j> IJl* 

, R j recurrentes) 

T; = Rj_, mod 10 iy-JI flijVl ^J JJUL^ 
Ri = Ri_i div 10 i J^lji-l » UJLi. 

R-! = V 

ts = chr (ord ('0' + T.) £ 

: .ycJaJl ^L^V u s\A\ <--?>& ( t4 Jl to ) iJbdl (.UjVl IJSU ^_JUJ 
Rn-i = of J£*£j n ait t^f^ij Ri = V ** u->L»J-l Llj . .^o j?*d Vj Jb«- J^*i~J 

. K&nJvJLk='0' (^f 

program numdec ( input .output ) ; 

{ oU~* , JSwi ,Jp L 5_ r ijJI LjJLii Jl i>^^<» V*»j **«» Jij^ / 

var v: integer; { l*L^/ v^jiUI i»-i)l } 

t : array [0. .4 ] of char; { ^yuJI J-i*JI 

... 4 t [ 3 ] olyi* i t [ 4 ] jW } 
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R: Integer; { <Ly£ .^jlkLl J^l^l <L~Ui« } 

.1: Integer; { t j t uj^JJ ^1 JJj } 

j:±nteger; { JjjjLt "^Ld } 

begin 

read(v); R:»v; i:«0; 
repeat 

t[i]:-chr(ord('0')+R nod 10); 

R:-R div 10; 

i:-i+l 
until R-0; 

for jt-i-1 downto do write( t [ j ] ) ; writeln 
end- 



oiLi t _^Jl js> »Sjj* >-?y~£- t [ i ] j>~\ oV jjS - ojL^ J*->c~J 
a>-lj JLiJ JiVl J_p Oil* c t [ ] i'L*. i_jt pij JiVl j> o^-ji <UV dUiSj 

. aSJUJJ 

V = 349 J i~jJl> ^L. UXp t uLJ-l iJUj& J">U 




tI0J = '9' 



t[l] = '4' 



t[2]='3' 



jUiJl jf ( 2 ojpLill J ) (binaire) JkA\ L4JUJ: J I JLJ, L*J Jy_»^l 
. 8 _; jl 2 _, 10 Oolill ijjIjScJl J JJLi-J jl t _ s i£ i t ( 8 SJpUJI J ) (octale) 
_l 10 Jxx~J (. ( 16 SJ^liJl j ) (hexadecimale) <£j^e ^-oLJl J-i*x!l Jl Jj^JJ 
T\ 'E\ 'D\ 'C, 'B', 'A', '9', ) ^ Jl ( 15 Jl ) ^J\ J.J J;yi U** ^j 16 
oL-JJ (5JU-I C JjO^JJ (indexation) ^JfcJl J;> ^ ( '8', ... , T, '0' 
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(7*: array [0..15] of char et T fOJ: = '0', 7" //y." = '4', ... , T [10]: 
■■ 'A', ... T [15] = 'F') : 

repeat t [ij: = C [R mod 16 J 

(Enonce tant que) liU? SjLp _ 2.3.3 

fl nonce tantque] 
»( while) — »j expression bool6enne | — *Cd°) — H 6noncfl| »■ 



( tw) true i»ji3l (JjJl j^J' ■^*"^ ^^ °Jj^° *^i^H *j^' -^-a^ 
. .i^UaJNl X* ( tla*- ) false io-jii( JjJl j*~*dJ 015 lil Ub SjUJl JiJ N 

while cond do V = f (V) 

cond = g (V) 

( JsyS = ( condiLion J jLax^M ) cond ) 

while c do begin enonce; . . . enonce end 

: J &\£Lo ^ while b do E SjUJl 
begin if b then repeat E 
until not (b) 
end 

: while IJls- xkz t-X xi JjVl JJ-I r&\ ^-j 0? >*_-£ M 
V = V ; while cond (V) do V = f (V) 

( t J\^\ Jji*JL. jJU^ ) binnum : Jlia 
Jj^JL t _ s ^uw ■*~>*^0 '—^ry *X^ i <L«i^Jl <c*Js (J| A>_poJl -t>jj bjf ( _ r i>jjiJ 

. ( 2 SJLpUII J i«-AJI iJuL: t oU^Jl -yi iLJLw^. ) L J ] cii\ 

lil . 2' J-UiL jj*J^ t. jf l ^ !> . «t„ ... t4t 3 t2 ti to» Jk&\ J-i<dl V i*^JLJ 01 

: J* J-^ i ,(Ti = ord (t.) - ord ('0'))' ti i*~JU iiilUl i*-iJl Ti LJL- 
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v = T n 2 n + ... + T 3 2 3 + T 2 2 2 + T,2' + T 2° 

= ((( ... (T n 2 + T n _,)2 + T n _ 2 -. + t,)2 + t 2 )2 + t,)2 + to 

■ ( jj-H - ' ^-^ (tlcveloppement tie Horner) yjj* Jsl—Jl jA IJu jl ) 

v = v„ [V, = v,+i • 2 + T, 
•v.h = 

program binnum( input .output ) ; 

{ iJUi i*_i! vJj i»J J,) Jjj>JI J 

var t :char; { abJ .JLj 1 [►ij } 

v:integer; { i»J } 
begin 
v:»0; 
read(t); 

while (t-'O') or (t='l') do begin 
v:=-v*2+ord(t)-ord('0'); 
tead(t) 
end ; 

writeln (v) 
end. 



■ srill J^i\ yvSJlil JUjvUJ 



. iJbJl -^ (jij ^^J 7iiL« t j>-\ d^ while 3jLp J^jcu-J 

(Enonce pour) J 5jLp _ 3.3.3 

r 9 

| enonc6 p our | 



Identlflcateur | — »(/=") — »|expressslon 



fdownto\ 



' '■ — »] expression 



-» (do^ ) — >[ enonce| >• 

( ojU- : enoncc i juJ : expression ; vJyw : idcntificatcur ) 

SUCC AJa-^lj^ aJUI i«JaJl Jl Jlj&^/I |^j i tou. 
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prod aL— Ijj JU^^I dUi j^j t down to /w _ 

. (V S^Jl jjd ^iLLl ^Jdl iili *_^ ^ _ 
dU <, ( downto *j> Jif jf- t to « ) Jj^jjJI i*J ^ ^1 Jj^UaJ^I itt-s cJl^ lij _ 

for v : = el to e2 do E 

: J SsilSOi 

begin tl:-el; t2:=e2; 
if tl<=t2 then begin 
v :»tl ; E; 

while v<>t2 do begin 
v:=*succ(v); E end 
end 
end 

. fy\jj^\ "j j^-\ jlSd (j j g.la.7 M ojLfrL~« ol_^Jil/i t2j tl (j_j>j <^w>- 

( olihll ^U>^ iv»ULl J?jJai-l ) Trigo : J&> 
(sinus) <—->■ t cjliiill i_jL~>«j i^L-J-l Js^kaJL! MjJl^- *Js> J^j LjI ^^^ 

: J5LJI J*- (cosinus) *LJl *_~rj 



I 


DEGRES 


I 


SIN 


I 


COS 


I 






I 





I 


0. 000 


I 


1. 000 


I 


90 


I 


I 


1 


I 


0. 017 


I 


1. 000 


I 


89 


I 


I 


2 


I 


0. 035 


I 


0.999 


I 


88 


I 


I 


3 


I 


0. 052 


I 


0.999 


I 


87 


I 


I 


• 


I 


• 


I 


. 


I 


• 


I 


I 


, 


I 


• 


I 


. 


I 


. 


I 


I 


* 


I 


• 


I 


. 


I 


. 


I 


I 


21 


I 


0.358 


I 


0.934 


I 


69 


I 


I 


22 


I 


0. 375 


I 


0.927 


I 


68 


I 






I 


COS 


I 


SIN 


I 


DEGRES 


I 
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progra 
[ table 
var D: 
R: 
i : 
begin 
U 
for 
writ 
for 

{t 
for 
R: 
wr 

end ; 

{t 
for 
writ 

writ 
end. 



m tr igo( out put ) ; 

s i nus/cos inus , en degrfis} 
integer; {angle en degr€s} 
real; {angle en radians} 
integer ; 

itre haut} 

i:=l to 30 do write (*-'); writeln; 
eln('I DEGRES I ' , 'S IN' : 7 , 'I ' : 3 , 'COS ' : 7 , 'I ' : 3 ) ; 
i:=l to 39 do write('-'); writeln; 
able} 

D:=0 to 22 do begin 
= 3. 14159265*D/180. 0; 

iteln('I',D:5,'I':4,sin(R):7:3,'I':3, 
cos(R):7:3, 'I':3,90-D: 5, 'I': 4) 

itre bas } 

i:=l to 39 do write('-'); writeln; 

eln('I':10, 'COS': 7, *I':3,'SIN':7,'I':3, 

' DEGRES I'); 
e(' ':10); for i: = 10 to 39 do write ('-'); writeln 



( JjLJI jljjJl : litre has <■. ^jLJl oljjJl : titrc haul v i.jlj : angle s i^-ji : degrc ) 

. iJb^> c/btaLc jy : Jlia 

. ti ^ T| <= i > j : <ulj Jjjl j*£>\x*]\ AS ^y> <. i_£jL"J j\ t jk*a\ Oj£j j*P^S- 



program tr i( input .output ) ; 

coast n»5; { Ujy >_>jJLkil ^-oLdl jjit ] 

var T:array [l..n] of integer; {jyiJ^Up} 

i, j , k, L: 1. .n; 

aux:integer ; 
begin 

{ <JjVl iL_Ldl tyl } 

for k:=l to n do read(T[k]); 



{T[i...n], y iJ J VlT[i]J (:r i : i«U-lj 
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for i:»l to n-1 do 

{ T [ i + l.-.n ] JS^ T [ i ] jjli : j iiU-l } 
for j:=i+l to n do 

if T[i]>T[j] then begin { JiL oil } 

aux:=T[i]; T[iJ:-T[.j]; T[j]:-aux end; 



{ jJJlJ iLJL-dl y^l } 
for L:=l to n do write(' 
end. 



,T[L]); writeln 



i = 1 



i = 2 



i = 3 



i = 4 



4 

2^ 





9 
9 
~9 
4^ 

2 



2 

^4 

^4 

9 

9 





2 
2 
4 



2 



t_, 9 
3 9 

4^ 

3 4 



3 
3 
3 
3 
3 

3 
A 
9 
9 



Jli. 



oil 



. JLidl J tkiVl ^Jb-l l^ t S^Ju" J+-VI J>JI &**■[ Irl « n 2 
(Enonce de branchcment) ( Ai^l ) jjJJaJl »j V - 4.3.3 



6nonc6 de branchement | 



-»(goto) — »| etiquette \- 



( ^j : etiquette ) 






Stlquetta | 



j— » ( chlf f re) - 



( ,Jj : chiffre ) 
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I declaration d'etlqu eUej 

-» ( label) 1— * j etiquette [ - — | — K^) - 

— o— 



I enonc.6 I 

■ — » j etiquette"] — »(J) 1 

1 L*jlS 



6nonce non etiquette \- 



. ( i^»yi_^t ijls- : enoncc non etiquette ) 

(frequence) nj : Jlia 

f * itf t 

jj^J -j£J ~*^j» 'Z' J,l 'A' -j» <Jy>H\ Oj& t oL- i_-*J A5 J : ilap-^U 
J-* VI y6 JSL^ g-U^Jl II*. J*^ V i (succ ('A') =S 'B') ) ^Jb* Sjj^L 

t ASCII CiLw i_j<J ) A_JLOo OJjjJa-; Oj_£« 4_i i_9j_P-^ll Oj-£o (jl o-rfL> 

. ( . . . BCD t DISPLAY 
program f re quence ( input , out put ) ; 

. oljpLjj 5^ .-J^f Jfr iui l5jh4 ^J 'J^ 1 JJ*k or 3 *-' } 

{ iJhi» >-jj-Vi jjSJ of i_-£ oU_Jl t_~*J J 

label 1; { oUwil J Ui- lyrj JU- J >-%^ } 

var Frarray ['A'..*Z'] of Integer; j '•} 

i,j:-A'..-Z'; c:char; { StJ> ^ } 
begin 

for 1:-~A' to 'Z' do F[l]:-0; 
while not eof do begin 
read(c) ; 

if (c<>' ') and <(c<'A') or (c>'Z')) then begin 
wr iteln( 'err eur - caractere lu: <',c,'>'); 
goto 1 
end; 

F[c]:«=F[c] + l 
end; 
for j:-'A' to 'Z ' do wr iteln( j , F [ j ] : 6 ) ; 
l:end. 

( It-jjij i<w. : caractere lu ; Uli. : errcur ) 
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u\/>}\ *_ow t r^-^y. c?' ~**j~*iJ J-*^ j_>JiaJl ^'jL* JUjc-1 jl : 4~3J 

(Procedure) *1j^-| - 4.3 

. .1^1 ^j^j l^iSlij ^Jl SjAAJI J ^1 j^ 
.1^1 J_L* . oUlyri Jl Jc^ 1 j-* *tyU fL-»f Jij^ J*i> 0* £°M " 0frl ^ 



I enonce d'ap pel de procedure | 

— >| idenll ficateur de procedur e | r- 

I declaration de procedure I 



--T 



: r 

rarnetres effectifs I 



procedure) — > ) identiflcataur [ ■ 



bloc | 



Lqh: 



parametres formals 



h^ 



"KD — H b|oc I — *■ 



jvS'Jb 



: enonce d'appel de Procedure) ) 

: indcntihcntcurdc Procedure 

ilUi .k;L*j : parumeties eltectifs 

t 7i->j*^ : declaration 

: parametres lormels ' Sj-Ai : bloc 

OjU : constantc i ^j : etiquette 

t ol^Jo. : variables t £> : type 

( .►JLj- : corps i SJb : function 



— »(const) y— ») definition de consi 



-> ("label) 1— » | etiquette | 1 — »Q- 



tante | — \_J 1 



type) 1 — > | definition de type~| — \_)~ 



-»| declaration da varl 



lables I — Kj 1 

~~H 



o 



declaration de procedure 
declaration da fonctlon ]— 



corps 
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> ii.n5"_ 1.4.3 
i-^^v^ o">L-^ ;Uull ^ i^jdl SJu^l ^ db oLL^. j c^J 

. ( jJ_oU ) I,- •»-_j Ji _^ 

■" \i i ■ ' . 

( cA^ ) ( JU^ ) ( flijf 4 ) 

V U>~ oLk^ll ^ t ^ \AX^ (.lijt ^j ^i jj^jVl .Lis ^lui 

. U-Uil jltl -jUy* ^jjlj ()()()[) ^ 

: >Ut^£ ^^l, ^AJlj jLai] ^ tjij^ £yJl ^ jil ijljSdl iJL**Jl j^- 

lire tes donnees du premier compte ^u>- J ji oik*, i ii 

while compte < > tfeWer do begin dobbin ,^\ < >'_uu whiiJ 
ftw'ter fc compte, en comparant position i^u- _U-i ,ju 

pf autorisaiion ■'■J. . fr 

Oi i U *^s j I 

lire les donnees du prochain Jh)i ^UJ-\ oLW i ii 

compte a traiter '^U. ^Jiii 

end 

oil j* Ii* 01 j ^ ^ j,.^ jp j^i ^ iJVsdi oLLJ-l p lijT Ji ijj 

: -! C^ri ti-^'j ui*-<2j" A* i-A-S^" y^Ji ,j» \j\J& il*-*- 

repeat //re c<ww/>te, position, automation ii . ^ , ^^ \ =, rcpcat 

until fe <fer««?r cAijflfr rfw compte «r «n 2 eVo . \jj ^lJ-i '-j, ^ ^i „„tii 

»"lj» O^t ^-Hr ^j lcl >ri «kJ j# « Ll^- ^JU- » JaaJI ^jL^j dUJd j^ 

l*j oiNl o_5^. jJl olLJ-l ^l oliytfjl JI SjLiVl ^ l^l , ^J] ;j_U- 

: ( < 0) -jjoil jw^li ^ Jii ( 5= (j) 
if position < then 
if ota (position) > automation then signaler 

( J! jr" 1 • Mgnalcr s jjj : autorisaiion t «^ij : position ) 
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program decouvert( input ,o utpuc ) ; 
const dernier-O; f 

var compte : integer ; l ^>U-\ ^ij } , 

position, a lit orisationrreal; 

procedure lire; 

begin 

repeat re ad (compte, position, a utorisation) 

until(compte mod 10)=0 
end ; 

procedure traiter; 

{ u^iSll vXJ-l J!^l} 
begin 

if P osition<0. then 

if abs( position)>autorlsation. then 

writeln( 'compte '.compte: 7, ' decouvert=', 
-position-autorisation: 13:2) 

end ; 

begin 
lirej 
while compteOdernier do begin 

traiter ; 
lire 
end 
end. 

( \j>\ : Hie s ^JU ■ trailer ; V L^ : compte ■ _iii : decouvert) 

700.00 270.50 9710 

700.00 ~ 986.00 0020 

100.00 - 200.03 0971 

0.00 - 0.27 3640 

0.00 0.00 0000 

286.00 -i l-sj^ 20 fij ^U~\ : J* J-^ 

0.27 _> <J>y£. 3640 flj v-jU-\ 

(Local / global) JIM / ^*~?y - 2-4.3 
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procedure PI; 
type i ... 
var j ... 

procedure P2; 
var k ... 

procedure P3; 
var L ... 
corps de P3 
corps de P2 
procedure P4; 
var m ... 
corps de P4 
corps de PI 

• ( (i — =r '■ coips i jJcl* . vai >■ f-y : lype ; ^yr\ : procedure ; 

u& ' ( ir^r C&y* ) P4j P2 oUI^/l i j jodl JU^I jS^ PI ^ J _ 

. -JLx^l -jS^ ( JLH ) PI . l, P3, K ^ 
P3j K *iL_li5j ( 0>Jl^i =jv_i^. ) P2_, j, PI JL^u.1 ^s t P2 ^ J _ 

• ( Uii**0J* ) 

• ( Jk-1 ) i £>JI JU*l-1 j-xc P2 -_,* ob^dl ^ J _ 

. 0iPk-l r *P3 _,K,P2,j,i,Pl i ^^^L i P3 J_ 

u^^ ( P3 ,y)L! OiJ^r! (^ P4, P2, j, i, PI c ^jaja, m , P4 J _ 

: -up £^dl jil j^r t U>jj*j, ji. J.LSJL y» 1 i-i^d! «, P4 tl^^l J 

procedure P4; 
var m, L ... 

. P3 jj. LjJd.\ £■ 4JU1 if -J ^ P4 j* L j^\ oils 

cons t a=. . . 

type b=(c,fi,e). . . 

var f , g,h :char . . . 

procedure P; 

cons t g=. . . 

type c=(e,a). . . 

var f :char . . . 
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hjJcdL y$; h: = V (^ i JU^I f j^dA, jp ^ f: = V L P ^^ J : Jb» 

• 4^' 
(Portee) ^JU _ 3.4.3 

<_$.All jjSL. . i^j-rfjil 4_J»lj^ J5 £> v_9^*ll JLjc—I aJ -jSLc ^JJI - «Jl ^pM ^*x 

oU-^oJl j»Lj| ) ijji ^ ijl -J _jf *lj=r-^ <. (OjliJ t 9-jS <. _^id i_s^*il iik-« jl _ 

. ( <S\jl\ oljJiJl t SjOiJl ^jxji ) AAiyi j\ 4£j~aZ < oljLJl p_wJ + 
o Alc-j ol*15ol ib^" -*iJ a] <_J y«» llbjk jlS lil ^ A iaJadl <d Jju -3j=rj h^ i^-l - 
je i>-jU- l^ jJl JJabil JSj B iikll j^SJ oils t A -j^J. S^^U B iikll 



un 
(proc.) 



(deux) 



var a,b 



procedure un 

typeb = (f, g, ... 



un T a T b ' ' 



deux 



un 
(var) 



procedure deux a 

var a, f, un ... 
begin 



end 



deux 



begin 



begin 



end 



H 



end 



( i 



ji>b> 



i5-L= 



. ( SjAaJI Jjb- ; Ajjj^aJl JajLojJI i»jli : i^b^ o'Vls- ) 



: jlpI^jJ 



t lJju A? \^ / Lii.»„a i dj jCoI jl ) i «j yCjl jl to >v?".'l v_ ^ . 
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v 2 

t oIjl« (i^aJ ly-^ ^i l -V t ' L ' JU*^J l ^£r M _ 

jf ^ t SjOi : 4iku5 U type x = .... Is-j^ i x ) ( (pointcur) 

. ( i«JL* j^ ^y* type y : x ; x = . . . . 

: Jli. 

program portee( output ) ; 
var i , j , k, L: integer ; 
procedure PI; 
var 1 , j : integer ; 

procedure P2 ; 
var i,k:integer; 
begin i : as 6 ; k : -6 ; 

writeln('P2':5,i:5,j:5,k:5,L:5); 
i:»2; j:-2; k:=2; L:=2 
end ; 
begin i :»5 ; j : = 5; 

writeln('Pl':5,i:5,j:5,k:5,L:5); 
P2 • 

wrlteln( 'PI': 5, i : 5, j : 5, k: 5, L: 5) ; 
i:-l; j:-l; k:-l; L:=l 
end; 
begin 

i:=>0; j:=0; k:=0; L:=0; 
writeln('prog':5,i:-5,j:5,k:5,t:5); 
PI; 

writeln('prog':5,i:5,j:5,k:5,L:5); 
end . 

: wbJl Jw 

PI 5 5 

P2 6 5 6 

PI 5 2 2 

11 



(Parametres) JaJL.^ _ 4.4.3 

: <-iyv> ikoiljj *lj»-Vl j jt-t^p j-r*-° ■s-k*- ^-^ iaSL-j dlj^-'iU OjSvj jl jjSlc 
Ja— . Jl J_.o4 i_j£ t tl j-»-^l tlJkJ J_^ . (parametre formel) ^ j will Jxw-jJl 
Sp iLJp (^jj-^aJl k....ijJl jLS0> «!>>-)/' ii J^ lS-^' <> (parametre effectif) t Jj«juI 

j ' $ - 
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II* ) J*iJl Ja^l UJ Jl <JH ^ ^^1 Ja^jJl J| iJ^JJ : i^i J^ _ 

J! *M c?» ^J^ 1 -W-V I Jl *M J* : ( Var aJJaJI ij£!l ) ^ i^j _ 

. IjJCU Oj£j jl v_j£ ,jjjl t JjoiJl k-.-.jJl 

( 1.4 Jt\ ) cl^V j^l Ja^^Jl 0j& : cSyrX L^j _ 

. ( 1 .4 ^f ) iJl jj \^| Ja^Jl j^, ; ijb Ja^-j _ 

aj^CS- iJS- ^JyH V Jj-U- AJl t _^Adl jl ifcjiJl <k-o Ijj Jiuj : Ja^ JjO>- Ja~-J - 

. ( 1.4^1 ) twI^JI itJ iUJ- 

[ parametres formels^ 



■o 



-» Cvary y-» | Identlflcateur U — >(~)- 

— o — 



->j Identlflcateur de type~| r 



function) — > [ Identlflcateur U — »(T) — »| parametres formels | — »(7 




procedure"") — > | Identlflcateur U — »(7) — »j parametres formels | — *0\f > 



-* | Identlflcateur | 1 — »Q — » | tableau ajustab l e~| - 

— o 



tableau s *\j-^-\ : procedure s ^i'_ r ^ J . : identificatcur < ^jj— 1. J*_-j : paramctrc formel ) 

. ( h .,.,. ^ JjJb>- : ajustable 



-W-"J *»i ■ c5j_>-vaJl iij^-jJl £_* Owed! i^JL JjL^u tjj ^ j^c jj* J~tl1 

. *I>»- , jI J| (_Ar*J ^»-S ) '^•Ja*- <, Jji^ : 5— Ja*j 
^i ■ lSjj-aII Ja-— jJl £jH ,j~^ <J Ijc*^ J*^l K --"^ 1 0_j5Cj : jlkia h,.,..!j 

J JLjc^U iJ-Utf i»_JiJ| oi* jlj t i»Ji ^uJJ jlS" IS[ : i=*-^j ^a*-" -^r' , J 

Ai-^ (Wo • J^l Ji i«^All oijfc Jii -Jj 4jlfl t .k-wojli i*J sl^-Nl -jj*- IJI ' ^^^l 

. ( (J^ . . . . t JJb- t JJj : jlJl ) el^"b/l JLi; JJ Ja^jJl 
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program parametres; ; JU* 

var i , j : char ; 

procedure P(k:char;var L:char) ; 
begin 

writeln ( 'P', k, L) ; 

k:=succ(k); L:=succ(L) 
end ; 

procedure Q(k:char;var L:char); 
begin 

wr it eln( 'Q', k, L) ; 

P(k,L); 

wrlteln('Q', k, L) 
end ; 
begin 

i:='0'; j:='0'; 
writeln(i, j); 

Q(i, j); 
writeln(i, j) ; 

Q(j,D; 

wr iteln(i , j ) 
end . 



Q (i, j) : gJldl J*v 



00 

Q00 P (k, I) 

POO 

Q01 

01 Q 0, i) 

Q10 P (k, 1) 

P10 

ii 



. f\yi\j JJjdl ki-s- -y> V^*",? ijj-rfill JalL-jJl Jjlko jf i_^ : «U^I 

: ■joJIp fj^f *_w^4 Iftlyrl : Jli* 

program Pl( input .output ) ; 
var a, b,c :r eal ; 

procedure somme( a, b :r eal ; var c:real); {c=a+b} 

begin c:=>a+b end; 
begin read(a.b) ; 

somme(a,b,c) ; wr iteln(a, '+' , b, *- ' ,c ) ; 

somme(a, 1. 0,c) ; wr i teln( a, '+', 1 . 0, '- ' ,c ) ; 
end . 

( fy^r : somme ) 
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s*^ 10 CS Cjw?-^ fj^t- ^~~4 Ul^l : Jli. 

program P2( input , output ) ; 

const n=10; 

type indice=l . . n ; 

vecteur=array [indice] of real; 
var a,b,c :vecteut; 
i : Indice ; 
procedure somme( a, b : vect eur ; var ctvecteut); 
var i rind ice ; 

begin for i:=l to n do c [ i ] : -a [ i ]+b[ i ] end; 
begin 

for 1:=1 to n do read(a{i]); 

for i:=l to n do read(b[i]); 

somiie ( a, b,c ) ; 

for i:=l to n do wr iteln(c [ i ] ) 
end. 

( i=t_^> : vccteur ) 

type t ableaurarray [l..n] of ... 

procedure tri(var T:tableau) ... 

(Fonctions) JI^J - 5.3 

I Mm . i f-jj -y> t <**«-iJ illjul LiLJ _ 

. ( *>wjw i^o JiJ function f (a, b: integer) : integer Jli° ) 

( 1.4.2^1 ) J j r « J ' J>-b*l jlJI Lj_ 
x: = .... * f (12, — 13)... : JL») 
: i^dL J-Lo. JiVl Jc- O^lj ijwu °J^ J* *-J |j J' oj-^ cSj^ of v?r 



I enonce d'affectatlon [ 



variable |- 



Identlf Icateur de f one t Ion 



\ I — »(/=) — *\ expression 



(/■ = (a - b) • (a + b) : Jli. ) 

(jJcj. : variable t kijw : identificateur s jwu" : expression ; j^ SjU- : enonce d'ul'fectation ) 
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o^-^ {y^r ^ — ^ *JIj : Jli» 



piogta i Fl ( input , o utpuc ) ; 
var a , u :r eal ; 

function somme (x , y :r eal ): real ; 

begin somme:=x+y end; 
begin r ead( a , b ) ; 

writeln(a, '+', b, '= ',somme( a, b) ) ; 

writeln(a, '+', 1 . 0, '=', somme( a , 1 . 0) ) ; 
end . 



(portee) ^JU- 1.5.3 

c i c 

j\ *\j>-^l\ ojJi ,y» JajLyJl JjJ^o 4aLu* j^So t 5Jlj> jl tlj-J>-l b\y*- J^^ 
. iULill SjJLill J>-b l frjjjl j"yu> ^ 4_ll jjl jl ^\j^\ *— I J j}£> t 4_!ljj| 

. (( ii-laii! (_^jJ.I JLt-l_jl JlpljiJl oJl* ,5-0— J 

: JUL. 

bl iL>Li Sj-ij 



function F ( A : Tl; var fi : T2) : T3; 



i]|Jl!l IjAs 

iUUJl Sj JLiJl *>li c^lku-1 \S : illjJl J Tl jp ^^dl 0L4 jSCx !A£a 

(Effets de bord) iiU-l j^ili . 2.5.3 
f'* J^-"; jr*L? y^i 'js*^ <■ fr ' w r!"!j' ^'^ j-c*^ L°Xp <aU-l JjjuLo -jp JicJ 

. iilJill 



: « 



Jli*. 



var compte : integer ; 

procedure P; {{ ._>L->- ) compte JL?- "VI .^Jcll }y_ } 
begin compte : =compte+l ; ... end; 



ill 
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var i, i ,k:lnteger; ararray [0..99] of integer; 

function f ( a , b : i nt eger ) : i nt eger ; 
begin f:=(a+b) mod 100; i:»i+l end; 

. ( 4_JljJl olkjUo JL*J «i» 5JU0J ) 

dl*IJi«J>tV : o^^Pij.-i Jla[f(i,j)]: = f(i,k) + i«jLJl &? 

J iix^ l _^ y. II* j_^ jL £c ,^ M : bJU Sjj^JL ^j ^1 JI VJ ^U 

■ (ilfc~ J* 

k" = 1 1 j j = 7 t i = 2 lij 

: J* J^j , J_,Vl iJU-1 J _ 

i = 3jf(i,j) = 9 : jl~Jl Ji 

i = 4jf(i,k) = 14 : Oy^l Ji 

f(i,k) + i = 18 

a [ y ] : = 18 ^ 

: J* J~^2j>«J 1 iJliJl 4JU-I J _ 
i = 3jf(i,k) = 13 Oy^Jl Ji 

f(i,k) + i= 16 
i = 4jf(i,j) = 10jLJl J! 
a [ 10 ] : = 16 <jk> 

j* j^^m ssjs •_•£? ) 

i = 3jf(i,k) = 13 

i = 4jf(i,j)=10 

f(i,k) + i = 17 

( a [ 10 ] = 17 ^u 

^ jlx - 6.3 

pJl ^jb lr . Aj M, J i>^^, pj &•& J5o J* t UtjL" Ja~ ,»J _ 1 

. ( i~™£Jl oly..,.U <uj| ) JUl 
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J5J . 20 Jp oU^Ap Jp IjJu^ £^/> N <. oUU^I P Jp J^-l. u a>J J _ 3 
lil i 12 -Oil Jl« Jp J-^>- lil % £ij.\ JJL* V s Cj J*lJ Jjlk, j jU.nl 
. JjUJb^ L ^ J Li jl>^Y «wi^-j 12j 10 Ju Jjaj Jp J-^>- 

" . ovUi 

U_p gJU i j^J-l j-i ^ Sj3 20 Jl £jj : (histogramme) ^j* J 3 ^ - 4 

lLw> lijy»» jj^J cjLAJJI ^JLp i ( "L2j*>- jI-^I ) oL-U 
JU- . ( R 1 (5-XJijf ) "UiJl J !>& SjJl*) (x, y, z) oLIJ^I «^ <»J - 5 

. iij-LJl <cu_i Ji ( < c) jUjj jOp J_p- _ 6 
jfj^j t 1^1^- *%>! ^-*-r. ej^- - J 4-Pj-^'j-J'I •yjJl ^j4 ■ >ac ' a° ^^"! -^ 

. ( >_jL5 100 JS3 ol^JUL ) il*%u*)/l Jjl«ji SjLJI olji- udU uii 

. 100 •>. >^Jl OjVl aIjpVI JSJL?- - 8 

. <u_*&> />lijl f-j^r c5jL>-i tS^J'j * 100 -j* ^^-^1 t Ut->t^> b-U- s>- _ 10 
iLJLJLl ^- ,^. 4» ,j* t ( ln(e) = 1 ) oUi. jlpjlll 5-ipli t e i*JiJl t_— ~»l _ 11 



( _L_ <_ *i y~£- *" '■ J* Jj-^-\ jj* ^»*Jrl 4-1** t-isjj ) V 
n*n! „ n =o n! 

n », n! = 1 1 i. = n! c n jJuJI JoIp « ^*j" » n! : AJi>-^U 
i 

iJLil iJLft 7T...A; I JU . t i5y> oJJli JJL^ Jp Jj-^JJ lilJI J X iJLil ^J>j pj - 12 

. <c~a 20 . . i ui~ — ^ ' i *-^' {**&* "^*i 
.iLj-iJlj Co lil I cUyJI 0^; ( V'j^ 1 ) V— J 1 i5 ^ J " JI J^ 1 Jj-^ 1 o4ri - 13 

: JjlJdl 
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^L^li^. 


^LjaJ J^b- 




AjuJaZi [U^-* 


J^^Nljf (JJLUJI) 




J' 


*_jL*^S^/I j*~* <Jj> 


( cJjjUall ) 


i_jj jUail j\ 


ib^Ni 


u_ajjL-^ail jl 


1950 


8,18 


1967 


3,74 


1951 


6,99 


1968 


3,58 


1952 


6,26 


1969 


3,36 


1953 


6,33 


1970 


3,14 


1954 


6,36 


1971 


3,03 


1955 


6,28 


1972 


2,85 


1956 


6,16 


1973 


2,66 


1957 


6,00 


1974 


2,34 


1958 


5,22 


1975 


2,09 


1959 


4,92 


1976 


1,91 


1960 


4,74 


1977 


1,75 


1961 


4,59 


1978 


1,60 


1962 


4,38 


1979 


1,45 


1963 


4,18 


1980 


1,27 


1964 


4,04 


1981 


1,12 


1965 


3,94 


1982 


1,00 


1966 


3,84 







: '4zJi\ J* v' ^11 oUI^-)h <^\ 
i^Jl J ( ^U.1 j ) diJ^s x _; l\yiiJ> \z\y> 1982 Jl j ^ jl >_*£ _^- ^b _ 

fiUVtj-^/i/ ' A 
. 1982 |.l*Jl J dLy y cJJ5 blj» <. B i-JI J oA-LC jlS" ^ - 
? (D > C) Dj c Oi^Jl uv. t^JLaJl JSlJl Jl^y L> _ 
? jjSVl JSUl Jim b\S i- if J _ 

i L>- J jljJ^olS'ljl2_;4*^iJ t U^>w9 liJLP i>-U : (collatz) jlMjS' Jlji^l- 14 
LJli SJbJU- oly. SjSCJl UjlpI lil i byu b J* 015" bl 1 aJLp JbjJj 3 _■ -Oj-viJ 

. ( 1,2,4,8,16,5 : o%^l 5 ^JkS : 5 : JlL. ) ? 100 JJ 

. Oi^LiJl u*~ ilJLil J ^ c, 0^ N 2 J i ^ il N x N J^T J : 5L A' VJ - 15 
. iijkJ^ ^ occi.j Uj^-jj t5j>-t 8 jjU (i, j) aA^- JS 

t 3jf 2 (^jUJoca.i bl (i, j) J ^U ^jt-xj- 1 
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* ( u-^l a* ^ iJ* ) 

occi.) = 3 JU- J *^Li (i, j) <pjU)I iJLii-l J-Jc-J _ 3 

» * " ' - c * 
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J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„l.' 1 1. 1 l .l .lll .'.l., i|. '. II l.l.Tl 



g\J\ J***)! 



UJLdJi JS\ ^JtXJm 



^LiJJ sj_^ As^w jlj t j^ijf JiCjo J*aiJl IJl* p4> ^ ^J . JISL-UI iill 
j^ l^-ill I jjh StljJ jl : L^ji^IjJl Uj U-Uil Js-LiJl ._ib£ ^»j£ 1; jiJ 

(*~! v -*s^' U±-~> <■ &>\5 £-»l^; Jp i»U i-Uill ili«Vl JM>- -y> t JjU^- 
tij^*- J* oUjjIjiUj oLk*iL j&Jc}\ jl i-i-Sj 4 ( JS^f ) ^y 7>*^ OiJ^ 

. injlldl ii^>tJI oLLk* .Slip t iiLi? J y* 

(parametres) JaiL»j _ 1.4 

5 (4.4.3^1 )j^cJi,Jy> J*iJ| Ja^Jl ; i»J J^j _ 
J*\ ) <e*J Jjjjj ^^J ^x tfJUl i >o.y> J*iJ| .k^Jl ; (Var) j^o- .k~.j _ 

.(4.4.3 
u~^J ^*i ^ JiJ 5 *|j>.l ^ly, J^iJl Ja^^Jl : (Procedure) Aj>\ -k^j - 

^-J? \J}* dJJI. J_iJ 1 i)b ^J ^ J^Ji Ja^^Ji ; (function) i_Jb Ja^-j _ 

. 4_Jaj<j> 

JjJ»- JaiL-jJl csj^ll Jl «U1 1 ^jiJil ^ iljOc ^WJI & OjyXw. AFNOR ,JiJI u£j (1) 
. ik~ill Jjl-Mrl oil glU: Mj t ^jiJLI ^ ^Ui JISL-UI Oply ^ ^S jZi . ±-j> 
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Jp J*~ iJla jl *l^l ^LS JUJu ■_£* i J*j Jx^ JzA\ J,jJ-l J* J^ 



[ en-tote da procedure] 

— > ( procedure) — >| Identlflcateur [ 



L<EK 



poramttras formats 



hO-1 



parametres Formels 



~<^>1L(: 



-©- 



Identlflcateur | J — »Q — t\ Identlflcateur da type 



-» | an-teta da procedure 
-*) an-tata da fonctlon |- 



S — *C var }rr~ H Identlflcateur U — »Q — 1 \ tableau ajustabla | - 



-o 



I en-teta da fonctlon | 

— »(f unction j — ») Identlflcateur [■ 



L©Zc 



: — »Q — >| Identlflcateur de type | — » 



parametrBS formals | — »(T) 

: identiticaleur i «_ijj_so i^L^j : parametres lunncls s «ly>-l : procedure t ol^c- : en-tete") 
( %y '■ type t SJIi : lonction t Ja_^ J_«-t>- ■ tableau ajustable t u^u 

(Parametre Procedure, Parametre fonction) SJli Ja^j *lj>"l ^VJ - 1.1-4 

. »»U^Jl J 4Juyu ijj>- t ill jj jl t f-lj?-')/ Uyto Jj«iJl Ja^jJl jj5L> jf i_*£ 

Procedure P (Procedure a (i : real; Var c: char )); 

P(B)jPwJ j£s 
: ol>*Jl B *I_^J j!5 lil 
Procedure B (x : real ; Var y : char) 

: ia^^jS Jji-o B JLjcu-1 P j ^/>Lc jjls 

. -jbnUS.Z.d) 
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U j-J i a.^-^ll .I^Vl. i^ULl ij^wJl JaSL-jiJ OaJil (c, i) *|^Vl d| 

(integration) <Ul5U ; Jlia 
oLJlJ^Vl jj_^c oj-lUil 4_>-LAl jA f iJlJLl j f( u )du J^^JI o| 




a b 

_j^£ 0*)L ; i3.T,....» (Jl <U-LJ>I juJaij dJUSj i^j^aj Xk>Jkz> v_jLJ-I *I_^-J i>^-£ 

: L^l>-L~« 1 jLwp- ^'jg ■■■■ 




ll * f(x) jjl jA X JjVl CjUI-b-^/l jjj£ Jj:- J^yi JJaX~~o is-L*o jl 

i»^l up 1 ( bj a J ) JJai^j U^dij t. J^IS JJa^o n — 1 »L>-jj jlS" lij 

j f(u) du ~ f £ h • f(a + i • h) J + h/2 • f(a) + h/2 • f(b) 

h = (b - a) / n S~>- 
j f(u) du ~ h • ( (f(a) + f(b))/2 + "^ f(a + i • h)] 
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. n oljiAJl iJiPj t (f) LgJLI^j i_jL->- cj^JJall 

function integrale(a,b:real ; 

function f (x :r eal ) : real ; 
n:integer ) 

:r eal ; 
var Vrreal; 

h:real; { (b - a) / n : 5/iJI ^>J- ! 

1 rinteger ; 
begin 

V:-0; h:-(b-a)/n; 

for i:»l to n-1 do V : =V+f (a+i*h) ; 
integrale:-h*((f(a)+f(b))/2+V) 
end; 

1000 « [ 1 i. -1 ] SjXAJ! Jp q-u 2 iHjJl J^ISJ ^L^ Jb^ Ul ,»J 

program integr ation(output ) ; 

{calcul de "somme de -1 S 1 de e puissance -u2" 
par la m£thode dea rectangles} 

function integrale( 

a,b:real; { ^^ 'J-** > 

function f(x:real):real; { l$L.l& ^L^- ^jlUl ill-dl } 
n: integer) { ol^lai-l jJlp } 

:r eal ; 
var V:real; 

h:real; ( a ) (b - / n : iyii\ ^j* } 

i : integer ; 
begin 

V:-0; h:«(b-a)/n; 

for i:»l to n-1 do V :-V+f (a+i*h) ; 
integrale:-h*((f (a)+f(b))/2+V) ' 
end ; 

function cloche ( t :r eal ) :r eal ; 
begin c loche : *exp( -s qr ( t ) ) end; 

begin 

wr iteln( 'l"integrale de "1 a 1 de e(-t2) vaut', 
integrale(-l, 1, cloche, 1000) :6:3) 
end. 
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(Parametre tableau ajustable) kwi 1 J jJor ^h~"£ - 2. 1 .4 



| tableau aJustablT] 

»j tableau aJustablB pacqua ]— 



tableau ajustable non pacqua J 



| tableau ajustable non pacqua | 



Indlce p — «(T) — »(o?)- 



Idantlflcateur de type 



tableau ajustable [- 



| tableau ajustable pacque | 

— ^packed) — > (array) — *(7) — > ] Indlce | — »(T) — >("p7)-— » f Identlf icateur de type | — »■ 

| Indlce | 

— > | Identiricataur | — *(T)— -») Identlflcataur | — f(T) — >| Identlflcataur de type ordinal | — » 



identificateur i J-L : indicc t 



: Pacque ( 



JjJL^- : tableau ajusisihlc ) 
. ( u^ty 9-y : Type ordinal 



j^CS- 4J| <-. JISL-Ul 4*] -^o 1 (^jlJil JJ iks^ Jjl-L>- Ja!U»Jl ( _ ? *iJ : <L^I 

jS^c V . (^j_iJ.I Jj (5^>-Vl ^LaJI ^^rJ 1^ t ^jiwil I JL* J Ju^-jJl ikJIJl 

jj . I^jiJlI -yiLjC^il JlSL-Ul 4>«-J CJlS' li| Vj -k^i JjJb- ii^jjl JUjCL-,1 

jl Jlj_^Vl -^ JU- ^L j£s V (norme) ^-lidl ^ (_$j_^ll >u> iSjlkvi iU~J 

Jam <: J_*iil Jv->U &;Uall JJjJI oj^ .ij-^ t JJjJl .ijJb- J^> jJx 
•J- 1 * J JJ^I ^J^>- J,/" J-»-*^~! • i5jJ-*<iJI ia~-jJl Jl <IjYs ljd>- J*iJl Ja-^jJl 

Vj OjIjJ c~J Oi-9^-^1 ^j* ^l— .Ijj iLuLl oljjVl <j| . 4_JIjJI ji *lj-^-"V' 

<->' (j^? V * iJji^i ( jj_y*j ) J*iJl Ja^jJl i»J O^Si : ioJ law? JjJL?- 

J t iJb Ja^j J : jdU J Nl ) iwi J>A»- -k^Jl Jp ^J J*iJ! Ja^ 1 i5 _r*- 

. ( iJLJjJl ol^Jjd.1 ^wi«j 
<j' v£ t5^-" ' lM 1 Ja^-J-Jl djj-^ 1 Ja~-jJl Ji? : s*C* iw J>1>- 



1.3.4 ^ (Packed) ^1 ^ Cj JLll ^ ^ (1) 
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. (Pacquee) c-^U* jl*± Ls^. JjuUI Jk^jJl dj£> jf -j£c N . \Jcj> cJ^ 
. « ] of array [ » jl£* J^ jl -j£r g s » : jUax^i 
J*iJl Ja^jJl jjSL jl -_/>Lc t 1.3.4 J iJuil olj^Vl iJ^o ^ : Slb-%. 
Oj-^ of 0^5 ^ i#j>^I J*s-i>Jl a& * ( 2.3.4 J Jlill jk\ ) JUu- ^ Jl ^o 

• ( Jj-A>- fj^l *k~.l^j <c* ^^Ijw ( _ r J ) jJJ jS" 

(Produitscalaire) ^L^>- *Ij^- JU> 

procedure ProduitSalaire ( 

var A, B : arr ay [ inf . . s up ] of real; var C:real); 
var i : integer ; 
begin 

c : = 0. 0; 

for i:=inf to sup do C : =C+A [ i ] *B [ i ] 
end; 

type indice » 0. .19; 
var X, Y: array [indice] of real; 
Z :r eal ; 

Produit scalaire (x, y, z) : h}^S ^Sx 

(Directives) cA^^-y -3.1.4 

: jI»XrJI SjJLijI «^o t oLg^>-jj jjJb : «ULUll ojJLiJl -ji- ^cjo\ 

I declaration da procedure | 



-» ( procedure) — > j idantlflcataur \ 

(a) 

I — »(T) — >) parametres formal* | — *(]}• 



-*Q — > | bloc 



^— » ( procBdura) —— > j Idantlflcataur [ ■ 

(b) . 

' — »(n — > | parametres formels | — *(Ty 
— > ( procedure ) — -» | Idantlflcataur da procedure | — »(7) — H bloc 
(C) 



j— *Q — > | directive" 



I directive"] 



I 1 lettr 



H 'attre | ]'■ 



I tlj^-| : Procedure t w_ r /2j" : DOchiahon ) 
parametres t SjJis : bloc ; >_j^w : identiticatcur 
t •up-jj : directives i *jjj*« JalL-j : lonncK 
■ ( f*J •' chiffre ( >_i^5- : lcttre 



chlffra 
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. JnJbu ojJaJIj d\j^*l\ dj^-i (a) ilU-l fj 
forward Vr^ 1 £• '^* t SjJliJlj jljvo«ll jjas /u« (c)j (b) o^U-l Jsljp' 
JIjh«JI ^,j^u Jl t JiJl JJ -_yi ._jyUal.l jl^-jJI vrjJl y> (jjJJl t ( 2.4 ^kil ) 
: obijviJl *~J ^j-i; J viJLlij SjJbiJl tvj^u JiiOAj ^Ujj ji i^^. 

(b) procedure P (i : integer ); forward; 



(c) 



procedure P; 
var ... 
begin ... 

end; 



. ( U.L. 43jjj.il t JaJL-jJl jj& ^ ) 

j is-jj— ill (recursivite croisee) i*iaLfldl ijl^JcJU ?■■..,> o -k> jpJl lJu» 

. (2.4 
_jl *L^"V »j-ls ol> jJbi 4Jl . external : cjLj^U-1 ■y. jOp JyM .u^-,; <^>-u 
£_« (a) ^ij-^Jl Jp c5jU-I ^UjJI of i^f i 2-^^j-Jl SjJiii rjL>- ^ ^'-dl 
. »-b- Jp Aij^a; ^ jj (b) gj^dl IIa < (b) j^dl (> ^jisi ^ <. external 

£*-~> <u?-j-Jl JLjc-J oU t aJLxuJ JJ i_jjj«j K jp wj^sdl i_j£ 4jf U: 

. JUiSU ^J-lll JbJbdl JI 4,-LLl jjp t ijb jf 6 |^| JaiLuj ^yj ^1 J^_ JbUi 

(Recursivite) i>_jl^5oJl _ 2.4 

i -kJ^Jl JJ t Aiil^ll SjJill J o-^al| oljJdl ^ ilb jl *ly>-l jk^JJ jl 

• u4*A O 5 ^ ^ e?' <■ ol^Jdl oJA ij^j *)} , ( ( j^Sbil Jl Sj^xJI ), juj ji 

<y Cs^ 45-j-val.l oljJcdl op t UjL— ikiJ Sjjii ij^- jl, ■*>. -y Is bl 

'J' J* r*A ) (yUJ iLli jj* ^oaJi .LJLdd iisljll oljJdl ^ ^^ k juj^ 

x* icaaJi ^aJi oIa 3ju a*j j ( vj£di ^ a^ ^Ij sjujULi oijjdi .i* 

. SJbOi-l SjJiJl Ja^JJj" iJljl 

Jl yiJl -yi v-oi p^i* <il i liL- ikij ojJi h...t.:J Jii ^ ijljScJl jl 

JI i^L bj a ^ PGCD iJj^il ^Vl ^UJI ^ ^ . (recurrence) .Ij^l 
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pgcd (a, b) = u n) JiLio JjVl JJaJl y> n ii~*- 

iUi = v,-i rUo = a _ r , 

iVi = u,_i mod Vi_i iv = b v n — jl 

Uo = 25 v = 10 : Jli* 

u, = 10 v, = 5 

u 2 = 5 v 2 = u„ = 5) 

: jij pgcd Jl *A*s- i_i y ju «^£j 
pg«/ (m, vj = u si v = 0, pgcd (v, u mod vj sinon 

( "^Ij •' sinon i. I jl : m ) 

: SJta JSU. J& JISL-Ul iiJ Jj 

program PlusGr andCommunDenominateur (input, out put); 
var a , b : Integer ; 

function pgcd(u,v:integer): integer; 
begin 

If v«0 then pgcd:=u 
else pgcd :=pgcd( v, u mod v) 
end ; 
oegin 

read(a, b) ; 

writeln('pgcd(',a:l,',',b:i,')-',pgcd(a,b):l) 
end. 

: oLLJ-l JbS dj$i «, b = 10j a = 25 oLk*ll « 

pgcd (25, 10) : j ,Vi k.,t.-1l 

u = 25 
v = 10 

pgcd (10, 25 mod 10) 
u = 10 25 
v = 5 10 

pgcd (10, 10 mod 5) 
u = 5 10 25 
v = 5 10 



ibll liJLdl 



: liJlsJl k,:..:ll 



(pgcd : = u) 5 >JJUJl .k^Jl i>Uo ji; _- »—J 

u = 10 25, jliJl JajJLdl JU-L Jj- 1 -- -_^ 
v = 5 10 



124 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



5 i$jl~i (pgcd : = Pgcd ( v * u m °d v )) 

jJliJl kJL-jll 

. 5 ^jLJ i^dl i u = 25 JjVl Jy— 11 J*k -k-^r J* 

v=*10 

pgcd (25, 10) = 5 : i^rJI 

o 5 ^ u^ ■ iSj^ tljtj <y p—V o-* 1 a* *"■* J : = PS cd (••■) ^ l ^ 1 ^' 

: ijl_/>J Jl J— li» J^-io ^ of (j51c V (Ackermann) « oL.^f » iJb 



ack (0, j) = j + 1 

ack (i, 0) = ack (i - 1, 1) 

ack (i, j) = ack (i - 1, ack (i, j - 1)) 

program Ac kermann( input , output ) ; 
var x,y:lnteger; compte: integer j 



function ack( i, j : integer) : integer ; 
begin 

compte :«compte+l; 
if 1=0 then 

ack: ■ j+1 
else 

if j=0 then 

ack:=ack(i-l, 1) 
else 

ack:=ack(i-l,ack(i, j-1)) 
end ; 

begin 

read(x.y); 

write('ack(',x:l,',',y:l, ')»'); 

comptefO; 

wr it eln( ac k(x, y ) : 1, ' en ', compte,* appels') 
end. 

. ( ack iJl jJLI isU- l]j*a*jJ* compte _I*ii' j~*. jl ) 
ack: = ack (i - 1, ack (i, j — 1)) : ,_■>-*-' ' oj 
ack:- ack (i - l,f (i,jj) : SiJS k^^ j' jSic 

f(i.j) = adc(i,j-l) ^ 



(l) while v<>0 do begin r:=u mod v; u:=v; v:=r end; 
pgcd: »u; 
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^>-ji ' 0^1 jj*- ^j~fiZ jl jdl ack ^jLj f oV dJUi t ack *J ^j f ^^ b£c 
: ( 3.1.4 )a>\ ) forward -u^-jdl J. .«-..,.Jj iukUia <u jl^ 

function ack ( i , j : integer ): integer ; forward; 

function f ( i, j :integer) : integer ; 
begin 

f :-ack(i, j-1) 
end; 

function ack; 
begin 

compte :"compte+l ; 
if i-0 then 

ack:-j+l 
else 

if j-0 then 

ack: «ack( i-1 , 1 ) 
else 

ack:=ack(i-l,f(i,j)) 
end; 



. ( ack jf ji-\ b\£* J f iJlJjl JU>c^Ij *w_w U IJla \ 
(compactage, chaines de caracteres) oU II J^t)L- «. J&M _ 3.4 

0... ] of char SbMl s i-_^y ol^Jii. JbJ £*l^J SjSIJdl J r*^- 1 J,-* — ^ - 
0... ] of char _> Lg_^j xp t o^l <y J& <J ^ 10()0 ° J^ arra . v [ " ' ' 
j\ IBM 370) ] 2500 4 5000 Vl t iftU Uj t J^ ^ l^li Packed arra> I " ' 

< (CDC Cyber) II Hi" „- 
**\£ i_~£ array [ 1. .3 ] of char C t^j^C *j jl» olS" li| 5 ^j^aJl aJ-U* ■_^«J _ 
= 'R')and(C[3] = T)jlC[3] : =T,C[2] :='R'(C[ I ] : > 
t Packedarray [ 1..3 ] of char 70^' ^ lil JX; (C [ 1 ] = T") and (C ! ' | 

. C = 'TRI' J C : = 'TRY _, gJU; C jij 

(Compactage) ^jJ l _ 1.3.4 

i iwJj ^i jA f-jJl I jla ol ^*j v-^y f"^ i>° l -*iy" <J Packed j»J\ j»$> jl 
i-JUi J Sjl — =^ J^Li, J «, ^ j^i Jjf J[ ^^-i^ S/IJJI J ,,-aJl ~-~.- oil 
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| type structure) 



— 1| nouveau typa structure [- 



— ») Identlflcataur da type structure | — 



| nouvaau type structure"] 



I ( packed ) 1 



-> j typa tableau | > 

-> | typa article | 

— » | type ansemble^ - 

— <\ type flchler | — 



1 JjJ-jt : tableau t 



identificateur ; Jb-t_»- : nouveau ; ^Sy 9-y^ : type miiuiuic ) 
. ( J^*" : ficlner t ie-j^r : cnsemhlc t i jn ■ article 



. I L*ji 4P-I v«S" 

jj JLJ^i 'jry jA t CjU^J IjjI^J i. 1 ,j» (jJJai* JJj i/p I <— JU<» J_5-L>- f oJ jl - 

i i_Jjl» jJcd L-S"y jj£> jl •j5lc V I^Jo> LUi Ua-— <j> jl _ 
i i 7 Jjw j-Jd. L-S^ j_jSu jl ( readln jjj ) read *l^-^l j* Ja~-jJ -_^c ■ Si - 
OjSJ jl -j^c t _/yuy> t^iJI ( writeln jf ) write el^yi j* Lk^j jls -iDiS 

J * ub~ Jj <■ _^«J J5 j j$i± jl ^SLr t_JL*j> jijdk <^Sy> Jl IJLiu jl 
jLijL-x- L~J .^Jjw _^ Ip^j L_Lw U^ jU 4 J;UiL . ,>cVl j\ ^-jV' *—£." 
^ *-i.>'jSo LJl JL*wl jij -jS^r ' ( s-jjl ^^j ^y. L-J j^il ) Oir*^ i-JU 
. unpackj Pack UL. 4i^*il oUI^")/! JLjc^.1 iJl «. t— J^f *_~Sy 

var <r array [si J of 7; 

z : packed array [u...vj of 7"; 



: J sJLSlo pack (a. i./) 
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begin k:-i; 

for j:»u to v do begin 
z[j]:=a[k]; 

if j<>v then k:»6ucc(4) 
end 
end 

: ,y^l ^Ua/UL unpack tl^^H t.<j— ~> _ 
J f- jl£<> unpack (z, a, i) 

begin k:»i; 

for j:*»u to v do begin 

«[k]:-«U]; 

if jOv then k:-succ(k) 
end 
end 

(Chaines) J— ">L- _ 2.3.4 
JLJLi fj> jA c n > 1 o_j5j £~~~ t Packed array [ l..n ] of char fy Jff 
oi| T^r^H * i*-* n ^ JLwl^. 9j\\ {j* dJJJ^j^a i»— * n -jj> 'xxx' bjtf jl . i«~* n -_** 

. LSCc f-_jJl jj-^iJ ^ jJo>s J,l l j r *£}\ 

<■. write JaJLo_j i»jls ,J JLJu« f-jJl jj t c-jlill j\ j-jA\ ^Ji> ui j>_c _ 

. is^jtll \Zj\ iy> Jo— iaj - 
= <> < <= >= > 

O j>3 o\ v_*j£ 5 oL<i..,. j I i_-jtL i -bJkl 1 v*j»«jo.I k_~JjXJlJ 1*-j t JLJLj f-^Jl ^Ju- 

c < 'IL Y A' Ji. j^ju" i»J jLo" . ( J_jJl>- t-jJl J& jJil M c»l£iUJl jl <ua^**i.l 

. U.t."....,A I oLo-^-jl > «Jj 

SjLp JLxuJ i_*£ * read J Ua^j Oj£j jf JLJu* f-^Jl ^ _/yd. j£j; M 
for i:-l to N do read(V[i]) 

V jc ^ tJ ^s\ J_- ^~- 
var V : packed array [1..N] of char 
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procedure lireChalne ( 

var X:packed array [un. .max : integer ] of char); 
label 1; 

var car:lnteger; 
begin 

for car:=»un to max do 
if eof then begin 

writelnC'eof lors d"une lecture de chaine') 
goto 1 
end 
else 

read(X[car ] ) ; 
I :end ; 



. . . i. (extraction) ^"^UiX-4 <. (concatenation) X^3 t ( iibsi Jl^i i_j1j ) 

ijJii (PNB) pU-l ^j-aJl ^V 1 *•*?» 0* ' J ^ L ! C*-~i U^j-! V-^J 

. ,jw jJLi t ( jN_jjJl. ) 

JliL-UI j 4Xsoj ,.:.„■■. ^JUlj ijiJJ <( PNB <— -Uj » iilko JjJ^- i^ *_-£ 

: ol .Jcdl iAs^Lj 

pays: array[l..N] of packed array[l..l] of char; 
PNBh: array[l..N] of integer; 

^yyii\ £&Vl l*J Jlill Jj-bM J ,^1^ t JjVl JjJ^r-l J JdJl *~-J *iy> b\ 

: (PNBh) o JyilJ f UM 



pays 



PNBh 



'FRANCE' 
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1) program recherche( Input , output ) ; _l 

j ^ jju *xu pnh Ji _^ „-_ii , 

const N=?; L«?; 

t?pe chaine=packed array [1..L] of chat; 

v.. pays: array[l..N] of chaine 

PNBh: array[l..N] of integer; 
nom : chaine ; 
begin 

initialiser les tableaux pays et PNBh 
r epe ter 

demander un non (L-^wJ^ 1 ) 

calculer x son indice dans ( p'iysjj.ji-i j .l_h *. — -i > 
et gcrire pNBh [x] PNHli [ \ ] — ■'_■ 
en excluant le dernier nom: 'fin' 
end . ( "lin" _^ v Ji ^"V 1 j' — =-'- - 1 --'- * ;I ■ 

Jh-*, N JL>>~- 4JL1 j^i; . (i PNBhj ( jlL ) Pays J^lJLi-l J~o » _ 2 



, v ;i 



procedure initialiser; vl — <- 
var ligne : integer; 
begin 

for ligne:=l to N do 

• [ >- ] I'NBh \s-\ ) 
([ JUI>_JI J[jiJlj[>-.]l , i.ys 
end; 

: ^& i JUl >uJl <J,[ JfcJlj i [ >- ] Paysj [ >- ] PNBh \J[ n _ 3 

read(PNBh [ligne] ) ; 

lire paysjligne] < f ^ ] I'.ivs i ji ) 

r eadln 

: J^IS jf- JL~L* ic-\J> ,jju <. [ ^Jsu- ] Pays lyil _ 4 

procedure lireChaine( var cichaine); 

var i, j : integer ; 

begin 

i:-0; 

while not eoln do begin i:«i+l; read(c[i]) end; 

for j:»i+l to L do c [ j ] : - * *; 

readln 
end; 
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ija^.lj_) ^j^" ( jL-J-L JL>-b "i . . . jj5 ) <'icpctoi' .. en cxckuinl- _ :S 

demander un nom ( I-- ) >—Lu | ) 

while nomO'fin' do begin 

calculer x son indlce dans le tableau pays, et 

e'er ire PNBh[x] I'NBIi [" * ]i_-5[j ( I'.iys J..U-I j 4Jj \ ,_^i ) 

demander un nom 

end ; 

lucchiiinc (nom) 
: JlS^J.1 5wUj K&y jSic «... t pays Jj-kU J *U^ x «_~«s-i » _ 7 

; iJhx* iJUj>u iJUji t£j*J (. ~^-Jy jS- ilUt; t^")/! ,J* Jj-bU Liji^>-I ij| - 

x: = 0; 

repeat x:=x+l until ( pays [x ]=nom) or (x=N); 

if pays jxJOnom then wr it eln( 'pays inconnu: ',nom) 

else writeln('PNB/hab(',nom,')=', PNBh [x] ) ; 

( jU^j dichotomie ) ■ Ji^Jl iJL*p p.J~^ if^. <■ ^y J_ ,J ^H o^ I J[ - 

^1 jUil oJLp ^ ^Sy> yk JitJ Ui 15 : Jlrdl JJSxJl <uj Ja L*-_jI JlaJ 

J> aJs-jIjj JSLiJi icj* Aijiaj l^i^j _?l t ili^o c-JlS" I il t o^JiLa 1£j15 j£x 

. J^j [-J \-&£ v*Xj j^Jo ,5\- *U**j *fi 

: J^l J.I <d* J5 J,l£Jl ^.U JI ^ 

program recherche( input , o utput ) ; 

{ ,>- jJU j ij& I'Nli ^ w^Jl ! 
( lJ r jj- oUUJ aJ^sII i~!Ull ) 
const" N=16; { oijJJl jo* } 

L=15; ' ^l^JiJjlJl} 

fin-'fin *; 

type chaine=pac ked array [1..L] of char; 
var paysrarray [1..N] of chaine; { jljJUl i»5b J 

PNBhrarray [1..N] of integer; 

nom : chaine ; 

x: integer ; ( PNBhj Pays Jjl-bU J J-k ) 

procedure lireChaine (var c:chaine); 

var i , j : integer ; 

begin 

i:=»0; 

while not eoln do begin i:=i+l; read (c[i]) end; 

for j:=i+l to L do c [ j ] : ■ ' '; 
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readln 
end; 

procedure initialiser; 
var ligne rinteger ; 
begin 

for ligne:»l to N do begin 

read(PNBh [ligne] ) ; lir eChaine( pays [ ligne J ) 

end 
end; 

begin initialiser; 
lireChaine(nom) ; 
while nomOfin do begin 
x:=0; 

repeat x:=x+l until ( pay s [ x ] -nom) or (x=N); 
if pays [x ] Onom then wr it eln( 'pays inconnu: ",nom) 
else writeln('PNB/hab(',nom, ')=', PNBh [x] ) ; 
lireChaine (nom) 
end 
end. 



H730france iJjVl oUa*ll 

12180belgique 

I3590allemagne 

7 92 0grande-bretagne 

13520s uede 

11360etats-unis 

9890japon 

11330islande 

4880irlande 

1644 Osuisse 

1460t ur quie 

26 080qatar 

270haiti 

1930roumanie 

6710rda 

80bouthan 

Suisse 

f r ance 

usa 

et ats-unis 

fin 



PNB/hab(suisse )-16440 : ru'cJl 

PNB/hab(france )»11730 

pays inconnu: usa 

P .B/hab(etats-unis )=»11360 
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= b ... a 3 j^ill j 
"Sib c (wVI < ra_±_b"| ^ ^ ajf^ J 

a + b 



J 



2 

: jol i_^5j {( . , . <iJLJj x 

u:-l; b:-N+l; 
repeat 

c:-(a+b)div2; 

if nom<pays[c] then b:»c else a : -c 
until b<«(a+l); 

if nom-pays[c] then wr iteln(PNBh [ c ] ) 
else wr iteln( 'pays inconnu') ; 

( J jf£ -UL : l';iys iiictinnii ) 



J Ljjlw. Ljji; jj_£, Jbil ^_^JJ i_JL 1,_Uj i log: N -v» , -Li, oUjUil 

• (N/2 
(ensembles) oU ,^i£ _ 4.4 

'0'... ] : ie.j^.J.1 5^j JLjo^I J^-Vl^ •_/£) 4 (x > = '()•) and (x< = , y)iL5 
£j_Jl .w^, U I Ja t ^-^ ) ^ij ^ ^ L5->UaJl ipj^i.1 uj& . x in [ V 

| type ansamble | 

— " KI*L)"~*GD~- t l fc yP» ordinal | ,. 



Asset of char ; jLt, 

brset of (chene.hetr e , bouleau, pin, noy er ) 
c :set of 0. .9 

( ^sJj : oitlinal ) 
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b:=[chene s bouleau„pin] 

: ( \.3 ^i ) 



I constructour d'ansemblo I 

-<T> 



^ 



expression 



1 T 

' — *(_) — "H expression [■* 



-o 



XD— 



if x in ['A', 'E', 'I'.'O', 'U', 0'. . '9'] then 
VoyelleOuChif fre 

(jwu' : expression <■ io^JS* : eoiistrucleiii ilVriM-nihle 



Jlio 



: =[(),l,2] ur J- J 5JA : = [ •()','!', '2' ] its"j£r . JjUi. ^ ^ 



oLc- 



. A 



** Hi 

<. iJl -j* JLJ^, SJjuuIjj ap^j^LI J^ii t oM^I -yi jrv^ J^ . ^a^UJl *jjl d >-( 
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+ 


union jH 


A II 




- 


difference J> r » 


A II 


*{ 


intersection *1>U 


CQAnB 


= 


egalile ^.-i— ■ 


A = B 




< > 


inegalite -■-■i— ■ 


A ?t B 


< = 


inclusion (^L')^ 


*~i A dans B : A < = B 


> = 


inclusion (^«) *,-- 


—*■ B dans A : A > = B 


in 


appartenance^ - 


x e A 


^OpUJI <- J| v \ 



j£l l^lx? jSUl ^y J& , oUj^J.1 Jp write? read olcl^-Vl J_^" ^ 

' OL»-JI \" ?l 4>t_>w2JI Jif-Lc- J I v> ic-o.** 1 f- iJ 



l^' 



type base" 0. . 31 ; 

eas< set of base; 

procedure wr iteSe t (S :ens ) ; 
war x:base; s uivant : boolean; 
begin 

write('['); s uivant : "false ; 
for x:»»0 to 31 do 

if x in S then begin 

if suivant then wr it e( *, ', x : 1 ) else write(x:l); 
suivant :=>tr ue 
end ; 
wr ite( '] ') 
end; 

procedure readSet(var S:ens); 
var c:char; x:integer; 
begin S:-[]; 
read(c ) ; 

if c*[' then begin read (c); 
repeat {lire un nombre] 
x: = 0; 

if c in [*0'..'9'] then begin 
while c in ['0'..*9'] do begin 

x:»x*l 0+ord(c)-ord( '0') ; read (c) end; 
if x in [0..31] then S:=S+[x] 
elae wr iteln( 'erreur : hors intervalle') 
end 
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else 

if c<>'] * then 

writeln( 'erreur : caractere illegal'); 
if c»',' then read(c) 
else 

if c <> ' ] ' then begin 

writeln ('erreur: ] attendu'); <::■»']' end 
until c=']' 
end 

else wr iteln( 'erreur : [ attendu') 
end ; 

(jki-o : atlendu i ijjksii*-. : Caiacteie illegal t S/aJl *-jU- : hoisinicrvallc <■ JaU : cik'ui ) 
(Articles avec Variante, Enoncc Avcc) ** "*j^ <■ cj\JcJj> ** £j\jX$ _ 5.4 



record centre : xy; rayon : real end 

( -Sy> : cculic t $-U_: : ia\nn ) 



(avec type xy = record 
x, y : real end) 



,, . Ji."....».o Jsz>- •XjxJaSj 



record origine, extremite : xy end 

( i_jjk : cxticnutc t '-UI *ki; : originc ) 



Jajiji t ^iU ) Jai-I JS^i JojJ- C^-j <. ^-Ua J^~i <-J^fj LlJjl * -=>! (j^ 



( JajiLa i lS^) 


: (trait) Ja^ 


( <Jy jf~ ' ^j-*' ) 


: (coulcur) j J 


/ thjj i 4jda3 t o Jb) 


: (objet) sbi 


= ibi 
(cercle) li\i 


(segment) i«Jai 


= 5bf 
(point) ikil 


xy : _5y 
real : s-U-i 


tJuil iki 

x, y : i-i^b 


xy : oLilJa-l 
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fr^i t (objet) i\i\ (indicatcur) ^j-ll' J-* ^j-^J ■ x -° Sju - J^' Jj^' j| 

type xy- record x,y:real end; 

typeObjet- (cercle, segment, point); 
figure-record trait: (normal, point ille) ; 
couleur: (noir , invis ible) ; 
case objet: typeObjet of 
cercle: (centre:xy; rayon:real); 
segment : (origine,extremite:xy) ; 
point: (coord:xy) 
end; 



case objet : typeObjet of 
cere le : • . . 



iit^Jl jl 



objet : typeObjet; 
case typeObjet of 
cere le : . . . 



j jU>! j* 



ijjii jl *_ ^tj . J£il tlioL; -cuJi pA~J ^JJI t j-jy J^y* objet J-a^l 

. J^<JJ !>\i^- *JLj jl JJ io-i 4jjJ 

■j5lc ( oLilJb-l ) coord JiJ-l oJl?-ji t (point) iUiJ j-^-l J^~' lSjL-" 'M 

[typa artlcie~| 



-» ( record") — >| lists da champs~| — »(end}- 



| Hata da champs'] 



-o- 



r- H Idantlflcataur ) — ■— «Q~ ' RyP* h 

— o — 




tlflcateur (champ Indlcateur) 



^L 



efj« — j Identlflcateur da typa ordinal |«- 



-o 



Hr— » | constanta U (7) (T) — > | llsta de champs f — »(T)- 

I — rv- 



F5r 



champ { tjj—w : idenlificaleur i Jj_iJ-l i_*jl_i ■ ILste de champ i 5^ c-j_J : type ankle ) 
. ( o-jL° : conslantc t j-Jyfy : type ordinal t ^^ Ji- : indicaieiu 
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Ajb5 j>-C vae F: figure »-* 

^_ 

case F.objet of 

cercle : distance :»abs(8qrt(sqr(F.centre.x)+ 

sqr(F. centre. y))-F. rayon) ; 
segment : ... 

point: dist an ce:=sqrt(sqr(F. coord. x)+sqr(F. coord. y)) 
end 



F. trait:* normal; 
F.objet:=»cercle; 
F. r ayon ; = 1 . ; 



F.couleur :=noir; 
F.centr e.x:=L2. 7; 



J..-1; ■ 



F.centre.y :=-0. 9; 



(Avec) «-o ojLoJl ik~»l_jj oj^i^- 'iJuJzj obS ^Ss U l-u. 



with F do begin 

tr ai t : =nor mal ; couleur : noir ; 

objet : "cercle ; rayon:=L.O; 

with centre do begin x=*12.7; y.: 



=-0. 9 end end 



( OLjl-b-1 . LOtllll 1 iiL_a : lllShlllLL' ) 



Jt=r_jj 5-jJlJI I JL*j do J Lwj SjLJl Juij JJ *£ with J \J&j cyii jJd.\ tjL o\ 



I anonce avac | 

'with) x — » | variable article ) 1 — * (do) — » | enonce 

— G> 



with »l,v2,..vn do E 



with vl do 
with v2 do 
with vn do 

E 



J &ISU ^ 



with A[i] do begin i:-i+l; x:=... end j>i 
begin i:-i+l; A[i].x:=-... j* iik£ ^ 
(o^isjJo. . variable article ' «-* o jLp : OnniiLC ,'\cc ) 

138 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



(l'ointcurset Variables dynainiqucs) "^.y^ Cj\j*z»j ^^ - <»•■* 

<~Sy Jj^Ip jp JlJu^l jia- _?! i. lJ-J-I ip^ SjIjj ^s i SJjOp oVU J 

: ili^S/U oU-ljjJU LJy ^jjj 1 _ 5 >^.lj A^iU >&> ^y^ ■ ^L~k*-^ ^">U 

? x i-Jl J £>j y- (I) 

. . j*JI ? J^As k; j *i*- ill J _ (£) 
J jJjt- J oLk*.Jl! ">LiJ: jl 

( l£jJP ) tour : arra .V [ l9()3 •■ 1W() ] of packed array [ l..n ]of dun 



] rr 



cllapl 



r *>lka?l iU^I J=p t ( tour [ x ] ) (I) Jlj-Jl J^ J«- 

Jj> 4jU-*>U Jj_vJ-I J5 y^ivaJ J* ^£ -u£J tl^J «^lj ^/ <jJl J±~JS <u-JL ^j-^jw 

: j£jJl J* O^SC jf ■jSa ili-oHl ^ I L-L« ^ JJ . (£)j> (v) 



/W3 • 
GARIN 



f9v *- 



1904 — 
CORNET 



(&>- 9~ 




( 5jj^ill ay~~ II J uw-I^Jl *|f-f (►* GARIN, CORNET, Tl IYS ) 



tour=» array [0. .87] of record 
annee : 1903. . 1990; 

nom: packed array [l..n] of char; 
autre : -1. .87 
end 

( i_ihst : autre t — -| ; nom ; ^c— : iinnce ) 



1903 


GARIN 


-1 


1904 


CORNET 


-I 


1913 


THYS 


3 


1914 


THYS 


2 
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i (192D-THYS) lj* iaLjj, iJ^ ^^ N c Lu oLUl ^J j£J 

. iJjVl S_/£iJl ^a^-VL 4-=^- 

(pointcur) J-JjJl £_«-~. : 6 Sbl Sk-I^j o>I^Ull ^ is*>U!l e-i^j -j&c 

P : JJjJl i»J . 
P f : Ifri* JJ ail sbMi . 

: jb-lj *^j iaj^ JJaJl jJidl j^. 

type llen»*vainqueur ; 

vainqueur-record annee: 1903. . 1990; 

nom: packed array[l..n] of char; 
autre : lien 
suite : lien 
end; 
var tour : lien; 

. ( *jU . suilc < IrLj • lien t jsc: * ; v:imqui:ui ) 

Var tour : lien jl 

: ol_ / li!l ju t >ci*>U ^rji ■ >— 'jiiail <^S_^i\ « . -Ls 

t (JjL-dl l _ r *ic] jLaxi| ^Jp L)_Li (, ( i_ibii ) autre 
. <UUl ai^JI jjp Lljb t ( oJl=-j ) unite 
. ■jjj^aiil i*SU ^Ij J* ( ^jj^ ) tour j-I^ 1 J^^i 



tour 







1903 


S 






GARIN 


autre 




suite 












lien s-jjJi ^ j^ 
Vainqueur ^jJl j.* ** 



1<J(>3 j_.Lj 



lour | 
'CORNET •> ^.L-j 



four 

fowrt .annee 
tourf .autre\ 
tour\.suite\.nom 
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Irl c Var <t oSl J i ol^-JcuS I^JLp JJjJlI oljJiiJl j* q^ r 1 . ^ 

Aj?A ) \g%\ ^fs ^JUlj ( new c l^l ) ^^ l$iU ^A ^JJl .. A-S^ ^>U^ 

. ( dispose 

«*— ; i»J p JJjJlJ Jajuj p _j <uL- JJ-U> £ji j» l-U^r Ij-ii- J«r new [ P ] 

Jl 4Jj>-j t juJ Jj ( -^1 jf ^Vl (. — a3l J ) ^ <s^ J ^ J-*-*M «• < 
j^d bL~.l jJj, *tf "jLL jL jJU t J-b ^ J5" £« 4i,Udl nil i-^Jl OS . -k-j 

lil p i*J £jL ■_£* N 1^ c ( p t o"J o& ) P **«■ t-^ ^ ' P : = nil !i ' > 

j^ y> jf nil wJl p J oL5 lil Ua^- lo ' <uU JJail ^Jcdl Jj jj dispose ( p) 

. bist 



| typo polnteur | 

»{T) — »| Idantiflcateur da type \- 



| variable polntfta | 

> | variable polnteur | — \J) * 

( «Jp JJ -U yii. : Variable poinlee s JJ-> f « ' type Pointcui ) 
Jp » JJIpUJI -y> Jo-jJl ilj-tJl Ail ) <uU jLi.1 fjJl JJ J-jk g>Jl *-»/"' 

(( ? (^j>-f Ol^-J ~j J_A t X iuJl j 7t_Jj {j» )) J|J~JI -jP iU-^l ^z~» 

(_$J_f-UaiJl ._k ••II; i-^Jj^ ioj'UJl jf ^L^f Jpj t var p.q: lien «^ ) : ila-Jjj 

. ( cj1j.'.......1l) 

p: = tour; 

while (p~ . annee<x) and (p'.suiteOnll) do p:»p~. suite; 
if p~.annee=x Chen begin 

wr iteln( p~ . aom, ' a gagne en ', p* . annee ) ; 

q : =p~ . autre ; 

if qOp do begin 

write('il a aussi gagne en '); 
while qOp do begin 

wr it e( q" . annee : 5) ; q;-q~. autre end; 
wr iteln 
end 
end 
else writeln ('annee non r ef erencee") 

( ix — 'j& : non lel'erence ( iL- : annee ; diiJS : aussi ' j ~j : a gagne en ) 
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tour- 




"l 



annie = 


-x 




nom 






autre 




Q 




1 







. ( var p. c). i : lien <«-* ) 



t_ 



p:=tour; q:=p; r:=nil; 

while q<> nil do begin { i^'Ull ^- = P ^ o_-^i ! 
if q~.nom=y then r:=q; 

p : =y ; 

q:=q~. suite end; 
new( p"" . suite) ; 
with p". suite do begin { ^Vl oljUi^l i^'li jJL. } 

annee:=x; nom:=y; suite:=nil; 

if r=nil then 

autre :=p" .s uite 
else begin 

autre :=r* . autre ; r ~ . autr e : = p~ . s ui t e end 
end 



tour ■ 















-I 




pT. suite 




suite •■ 


/ 


suite •■ 


1 ^ 


1913 
THYS 


r 


1914 
THYS 


r 


1920 
THYS 

autre — 
nil 


1 


J 




suite »- 


j 


suite •* 


y ' 












... 






_„ 


s 





tr 

. cn .. cl OoljiJl £* JjLko" jJl kAA\ '&ls±\ »LJVl *Uil 
(jJl l^Ju ^j* LgJl jLiil oliLill bj& of ^-£ i aJL, y, dispose (p. c 1 . . . cn ) 

(tri bimiire) ^jLj j_j : Jli*> 
J icj^^ll wJl j^J c_^ Jl^-i jijSi Jp Jj^J-L iijlaJl ^^Ij 
* OyJl Jc- jjSJ ^J| dlL" JS -^ yw>lj jLJl Jp dj& ji\ JUL' J5 ^ ^si iJLip 
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„ " TROUSSELIER" , "CORNET" , GARIN" j^-J a-^ Lj_ 

. . . ^\<. FABER' <. TEI'IT-BRETON" c TOTTIER" 

u 2) GAR1N 

/ \> 

GARIN CORNET ® 

® <9 ® 



CORNET 



GARIN 
/ \ 



TROUSSELIER 



I) GARIN 

/ \ 

CORNET TROUSSELIER 

J / 

& POTTIER 



I sY>l Hazily ilj^-j JUxJI ^ is">\jjl J-t»ii 



type fils="noeud ; 

noeud'tecot d valeur : packed array [l..n] of char; 
gauche, droite : f lis end; 
var r aclne : f lis ; 



,*-JaAJ J)L ^A U o yiLa aJsJ (1)1 Oyti LoJLc- l£49u (_o^^ *iJ^J^ ***»■*- ^r\ 



procedure editer ( arbre : ft Is) ; 
begin 

if arbreOnll then begin 
editer (arbre". gauche); 
writeln( arbre". valeur); 
editer( arbre". droite) 
end 
end; 



( i»J : valeur i jjf : droite i _,Lo : gauche ; y^J, : nrbre i ^t] ; editor ) 
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. ocliter (racinc) _> ^yilJ^Jl j <cu«_~J ^^ ^Ji\ 

y : "racine ; 
repeat 

x:-y ; 

if u<y*.valeur then y : -y" . gauche 

else y»y~. droite 
until y»nil; 

if u<x~ . valeur then cr eer ( u, x" . gauche) 
else creer ( u,x~ .droite) 

( jl=M ) creer ^fr^ *-• 



procedure creer (vrchaine ; var p:fils); 
begin 

new(p) ; 

with p~ do begin 

valeur:«v; gauche:»nil; droite:»nil end 
end; 



program Tr iBinaire( input , out put ) ; 
const n»20; 

type chaine-packed array [ 1 . . n ] of char; 
f lls»*noeudj { iJU v 1 ,-^ ! 

noeud'recor d valeur :chaine ; 

gauche , droite : f lis end; 
var racine:fils; 
c :chaine ; 

procedure creer (vrchaine ; var p:fils); 
begin new(p) ; 

with p~ do begin valeur:=v; gauche : "nil ; droite:»nil 

end 
end; {creer} 

procedure a jouter ( u:chaine) ; 
var x,y : f lis ; 
begin y:-racine; 

repeat x:»y; 

if u<y*. valeur then y:»y~. gauche 
else y : ■y*' . droite 

until y-nil; 

if u<x~. valeur then cr eer ( u,x~ . gauche) 

else creer (u,x* .droite) 
end; {ajouter} 
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procedure edlter ( ar bre : f lis) ; 
begin 

If arbreOnll then begin 
edit er(ar bre". gauche); 
wr iteln( ar bre*. vale ur); 
editer(arbre~.droite) 
end 
end; { jW ) 

begin { ■- J1 ~*i } 

readln(c) ; 
creer (c ,r aclne ) ; 
while not eof do begin 
readln(c ) ; 
ajouter (c) 
end ; 

edlter (racine) 
end . 

i-ijJSf J-p ) JL5L-UI J f-^% ol^jJLill cjUcJl* -^-*~j" : "^l^L» 
jj* Jkj. lil <. US Ji-iy Uljip JJjJI oLS" lil : jljiJl s^ £_^L t ( olj-U-l 

type ptr-"item; 

genre* 1 (bits .octets , mo ts, entiers, reels, adresses); 
lten'record 
case genre of 

bits: (bit:packed set of 0..31); 
octets: (octet : packed array[0..3] of 0..2SS); 
mots, entiers: (i:integer); 
reels: (r:real); 
adresses: (a:ptr) 
end ; 
var mem: item; 

i iiJb- ilo_tt : reels t S»«j>w> jIjls-I : entiers s oUK : mots s oLiL : octet s <L>bi : bits ) 

. ( ^jijVs- : jidresses 



: y U&5\ -j* x iJl *&» S/l JJI j AlJ 

mem.i: = j> f-^L 

x in mem.a\.bit j^! 

mem.a\.bit: = mem.a\.bit + fxj 1 _j .k-^ 

mem.a^.bit: = mem.a\.bit — [x] 0_> .kwi 
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(Fichiers) o^w _ 7.4 

oUll J get U^ aj«il ol.lj*-^ JUjcl-1 J,> j* L^ijj sift ik~-l_^ -uL 
J_J~ll ila_, Jc sliUl ^j 5iUI dJJiS' ^s . gfc Otill J Putj i ijU, 
Ak-I^ 0j-X>- J~L~. o» jUJ JJLil i_i%1 j\ t iJLJLdl oUJLl reset ik^\ y 
eof J^ill 0U t J^Lil il^ Jl sAiUl J^-.Ujup 1^1 . JJLdl ^UxU rewrite 



L>«rt£> 



yr;-/ J _i 



OL-S^lll f-jj JJL>J t J^t-Jl T^J-^' -^ 



| type flchler | 



var/: file of integer 



: Jli* 






variable tampon I 
H varlabla flchler | — »(T)- 



( J»— * : fichier ; t-^JijJcj, : variable tampon ) 



( -uU JJjdl ^Jdl *j. <LkU pJJJ ) f t : = 12 : JlL. 
j^b; jLiJl j J? 5 *-" f-*i rewrite (f) 
jf' ft J ( ic-Aill <*^*J c-x-Lsi ) pjli J^-Jl 4 true (Jj\-~»i eof (f) 

put (f) iJL*^- J5 JJ <«J> Ajlkpl i^ji : ^Jbi 



jl* ii f : Jj^l f J= — 'I 



rewrite (# -> ^^" oLi 



ft iJ^> 
eof(f) = true 
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. eJiiUI 



* 


-j.Nll>-JI ••• II 


jte jb x i»J f t J 
e«?/ (f) = true 


/«/ fl? - 1 


eof(f) = true 

t t 



ajU» jLlJl J J>«-«JI r-^i reset (f) 
,-Jll ^jL-J f t j false ^jUJ eof (f) t kjli J^Jl ^ 1 lil 

( is*-* 8 er <•$ reset -J-*^ ) ^J^ 1 



reset (f) -* kA*» Jti 






J J>«~JI jj^So of <_*£ iff-; ^^ ' v- 5 ^' ^~J 'Mj 5 -J^LJl cJi g ct C> 



JjVifJ^Ji 



get (f) 



... 1, ... 1 


1 


1 


.- | X 


... II 



JUt* ll)*—" 



JUx 
eof(f)= false 






eof(f)-true 
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copie ^t~J : Jlia 

program copie (f,g); 
{ put j get JU^I Ji> o* V^ ^"*=>- ) t- ' 

type sequence-file of record nom : integer ; qte:real end; 
var f , g tsequence; 

procedure copie (var u, v rsequence ) ; 
begin 

reset(u); {reset remplit le fenStre u~ } 

r ewr ite( v) ; 

while not eof(u) do begin 

v~:=u"; put(v); get(u) end 
end ; 
begin copie(f.g) end. 

J^-JI b& 0\ cM *1 i ( 2 - 2 Jd ) gkjj\ jP b\~rM U* gj f JU>il 

Etendre jJi Jlio 

procedure Prepar eEtendre( var f:T); 
var auxiliaire : T; 

procedure copie (var u,v:T); 
begin 

reset(u); {reset remplit le fengtre u" } 

rewrite(v) ; 

while not eof(u) do begin 

v":~u*; put(v); get(u) end 
end ; 
begin copie( f .auxiliaire) ; c opie( auxiliaire , f ) end; 



4kj.VJ JL^ ji4 : •l./rV 1 J [fJ>3-» j» ( J*l— ) auxiliaire J^Jl 01 

: text o'^U-Jl \-is- {^ 
J * jlS^ read (f. x) _ 1 

begin x : = f | ; get (f ) end 
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begin read (f , x 1 ) ; . . . read (f , xn) end 
begin f ^7 : = x ; Put (f) end 



J *jK* read (f, xl xn) _2 

J s. jl£« write (f, x) _ 3 



^uw a^> X 

J *Jl£« write (f, xl, ..., xn) _4 
begin write (f, xl) ; ...; write (f, xn) end 

procedure copie2(var u, v : se quence) ; 
var x:....; {composant de sequence} 
begin 

reset(u); rewrite(v); 
while not eof(u) do begin 

read(u.x); {x:=>u~; get(u)} 
write(v.x) {v~:=x; put(v)} 
end 
end ; 

■j*- L yii£ <c£J t ijljJU iLil ii-Uil ,y> read /write j^ciA\ JiClII ^yU; 

SJliUl JUjCLvuI Xxj get A»-*^ — j 
. SJiUl JLuwl JJ eof Ju»jcl~o 
: jUaaj A* i— iijj /w Jl»- JiLijj (tant que) liLL> SjLJl jil i_~ubjo 

reset (u) <— JjVl T *£^\ At>\ 

cof (u) «— do ?td.l ^pflidl Jjp Js^j. while 

: = u t <— ^ijJl «Jli 

get(u)«— JUI^jJI «il 

-> <A* J_*^>J.I JUl k_— Jjil J* u f siaUl (_$j^: t read (u, x) JuiJ jl»j 

jJl <, (5j>Jl (J-UJl ^Ikll oli JJLil jy j^ J Ij^S SJb'li J_SLij L. IJl* <-. read 
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. (jyS *-Jys\>- Jp jjJil iJJ^Cj j\ (. ^^U-JjSLa Jp 10 000 jl 1000 

P j* J^-- N J,l oLk*il ^kio <, r^-^I - jy>l\ J ^L-Vl ij&iJl ,_yaiJb" 

type f ichier»f ile of integer; 
procedure fusion(var f , g ,h : f ichier ) ; 

var v ide : boo lean ; 
begin 

reset(f); reset(g); rewrite(h); 
{ J»«~JI 's^r &- £° 1}< 
vide:=eof(f) or eof(g); 
while not vide do begin 
if f~<g* then begin 

h":-f; get(f); vide:=eof(f) end 
else begin 

h~:=g"; get(g); vide:=eof(g) end; 
put (h) 
end; {while} 
{ f jLjl iU^ll ilfdJ £_J / 2 } 
while not eof(f) do begin 

h":=f~; get(f); put(h) end; 
{ g J>^JJ iUiJLl ilfJJ £~J I 3 ) 
while not eof(g) do begin 

h~:=g~; get(g); put (h) end 
end; { -Uxl } 

(Fichiers de Texte) ^^Jl C->^U~. - 8.4 

ol*ly-Nl J-Ja* 5 J_>ia-- ^V 1 (J^ S~^y "^l**" J^?" 1 J* o^' J^?"" ^i 

J oU~Jl iLUw Jp write t read t eof t get t put t reset <. rewrite Jlj jJlj 
Ltjfc J*- <u5^ J*i| . ^^Jl J>«~» £jj jp text ILL- i_9y«il i_»^*il ^ r -~»j 

; ieAz* ^A iiUtf'} CjLJaP *->jl jli <, JjJ 2 — ' 
<, Ja~Jl iLi i»"iU o_jSi ^ i f J^JI J _J*~JI iLi ia">U ^a; writeln (f) _ 1 
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. JpU i»~£ ( read ji get -> ) L^ly i^\ 
_) * jl£« writeln f f , e I , .. en) 

begin write (f, el en) ; writeln (f) end 

<ui ^jbM ^Ji\ iAj. Jbu Jj-iLo f J^—U lSj^I /jjll £-»•>• jjVI aJ readln (f) _ 2 

>JJ JjVl io-Jl Jp iySy \+Jb IJSU f t «-i»Ul jui 4 J*JI 

J *(jl£» readln 
begin read (f, vl, ..., vn) ; readln (f) end 

s > 

<-. )a~> i*\+ Js- iySjA 1 1 JJiUt cJlS 131 true i^aJl eoln (f) 5J^Jl ill jJl ^-y _ 3 
^k~Jl i>lji Jlc-Lj ^ L« Jjj^xJ^ 5t4~o eoln (f) U^p-jj <, f | = <JU-l » J-* J 

J»~JI Oj& UwUp i SJUJL>- h^Ji^a Je- Jj ^JDI jjrfjjl Z*\A> JI ^jjj page (f) _ 4 

. ^a JjJ- jl^- Jp Ip^k. f 

(^Ji^l Jo yi jJl jl t-\j^\ J-h> t J^-Jl *->! j5i JapI lij : oljUt^l 

: output jl input 1,3, .■»* Asydl o"i\?^Jl 



vvri/e (output, e) ^ write (e) 


writeln (output) 


writeln 


read (input, v) 


read (v) 


readln (input) 


readln 


eoln (input) 


eoln 


eof (input) 


eof 


page (Output) 


page 



J ii-Ull Jwsil ^ i a**. s-jJI j^p c^^f JaSLyj vlUiS 0%i writej read 

. 4.2 J « r-j^- - J*o » ojiLill 

^jf- J^ i oI-IpLj SJj-^iio oLJiS j* uJJj^ t l j t aj ibS JiU-l Jby : Jli» 
jk~. J_P i_J&J I As- Ij^S U£>\ cJiS lil Ml ) CjUL£U «_Jaj; j_ji i, Jom> 

■ ( -^b 

: 4*K JUj <J5 4*ui*aj ~U«» Jj^l ,j^i3 l5J^' ' J?^' - ' 



151 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„l.' 1 1. 1 l .l .lll .'.l., i|. '. II l.l.Tl 



while not cof (i) do begin 

sauter lcs espaces supcrflus preccdant un mol 
lire un mot n 

s'il ne tient pas sur la ligne en cours 

aller a la ligne 
ecrire le mot 

end 

SauterlesespaccssuperfUispreccdantunmot ij£) iLLJI ix'l Jl ,__>l-u.LJl ^S>£- 

lircunmot <uJ5iJ\ 

S'il ne tient pas sur la ligne en cours ^ j^ji ^jU-l jkJll^ i lij 

aller a la ligne jjjb-^k-JJ 

ecrire le mot i^JKJl ._^l 
end 

: « SJb'I^Jl ol jpUI ^-kii D _ 2 

repeat read(l.c) until c<>' ' 

Var c : chai -a 

(mot) iJ5 JjO?- J Lj-Jj^ Ajii : « ioJ5 iyl » _ 3 
array [ l...long ] of char 

p>^>- i$l c ^a~» (J-e- <_>£& i<JLS3 (^a»^l JjJaJl t long C-jliJl il) j£j viu~>- 

l_yu-a oil m ^jLj i JjjJL-l J il>- oil IjSH\ iq — II >Jj>. m JJjJI ^k^ i ^kJl 

while < — jLaxSJ xj> 4jj\j& : i»l£Jl 

b: = 0; - 

while c<>' ' do begin _> Jw^-I 

m:»m+l; mot[m]:=»c; read(l.c) _> -;( 

end ~ 

« oIOpLJI ^jkii )) -j C JjVl JlJ-l r-&l r^" 
jJ-l Jj^l aSjIIj oytU-j <. « JbJLs-^Ja-o J,} i aJ (UjJI <_£jLi-l jJa-Jl LgiSvj 1 1 il » _ 4 

: ( 1 <oJl J ) I i jkJl Jp 

If ( l+m-l )>long then begin writeln(f); 1:=1 end 

. JlpLj Hx^\jj 4jj^il ioi^JI jP L^Lai Jji^ 
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for x:=l to m do write(f,mot [x]); 

l:=l+m; 

if (l+l)>long then begin writeln(f); 1:=1 end 

else begin write(f,' ') ; 1:-1+1 end 



« 4aA5 \js\ » 



while c<>~ ' do begin 

m:»m+l; lot [m]:»c; read(i.c); 
if (m-long) and (c<>' ') then begin 
lmot>llgne , le couper} 
if lOl then writeln(f); 
for x:=l to long-1 do wr it-e(f ,mot [x] ) ; 
writeln( f , '-') ; l:»l; not [ 1 ] : -mot [m] ; m:»l 
end 
end 

program reecrire( i , f ) ; 

const iong»36; { uM 1 j^ 1 J A-^ 1 -^ J 

1: integer; O- 11 J>l JUl tfjll } 

mot: array [l-.long] of char; { s CJ yill iJ£Jl } 

msinteger; { a^oi i— jfA US J JJj } 

c:char; {j^jJIJi^} 

x:integer; 
begin 

reset(i); rewrite(f); 
1:-1; 

{ us us 4jVi JaJi <^*} 

while not eof(l') do begin 
m:»0; 

{ iU53U AiUI SJiStjJl oUpUI ^ } 
repeat read(l,c) until c<>' '; 
{ i~KJI uly *;i } 
while c<>' * do begin 

m:-m+l; mot[ul:-c; read(i.c); 
{ l*«_k5 i >JU I-JC *Ljt *J£JI cJtf lil } 
it lm=long) and (cO* ") then begin 
if lOl then writeln(f); 
for x:-l to long-1 do wr ite( f ,mot [ x] ) ; 
writeln (f,'-'); • 1:-1; mot [ 1 ] : -mot [m] ; m:-l 
end 
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end; 

{ ojjbr >- Ji jasi . v J-^ 1 i^j^ 1 >-» ^ v-^ ^> "jy 11 iJs:jl "^ 'M ) 

if ( 1+m-l 1>long then begin writeln(f); 1:»1 end; 

{ «J£JI ^S\ } 

tor x:»l to m do wr ite( £ ,mo t ( x ] ) ; 

l:=l+m: 

{ iiUI i~l£)l tf- l»Uil i.u^ £f : yUl *-J^ll *;^ j-**~ } 

if (l+l)>long then begin wrlteln(f); 1:-1 end 
else begin write(f,' '); 1:-1+1 end 

end; {while not eof (1)} 

if 1>1 then writeln(f) 
end • 

(hierarchic des types) fl^bU <j jj~UJl J.»».L..jl _ 9.4 
itjJl ij& Jl (N. Wirth) vii^-ij . o JJ -^ i»^«il t JlSL-Ul iiJ «--y 



. ( (C.A. R. Hoare) 






t ~£j»jS- 




/ 


1 






\ 


\ 


Jl± 






a ZS 


• integei 

• real 

• char 




' 


1 








e: jl.u; 








record 
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(complements) oU^ - 10.4 
(Nombres pseudo-aleatoires) aJjUs? <u-i jI Js-\ 

[I,0]J*JiU* G Jj; 

function alea(var germe : integer ) :real ; 
begin 

alex :-germe/6 5535; 

gerne:-(25I73*germe+13849) mood 65536 
end; 

i - * 

[ 1, ] J^- JJUio J^Li; i*jj» t 4ih£ 4_JJU« i*J 65 536 illjJl oJLa j _>& 

* t St 

Jiiai j! l_~£ . maxint ^ 2 31 - .1 <y j^ i_jj^U- JS" J^ J^oju 1^.1 . j^/xj jl JJ 

. t-\Xi J,| tlaj ^ ( »j JL ) germe j^cdl Ja-^jJl 

JLjc~J l ^£r 4 maxint ^ z 15 — U 

function unif ( inf , s up:real ; var germe : integer ) :real ; 
begin 

germe: "germe* 899; 

if germe<0 then germe :«germe+3 2 76 7+l ; 

unif :*germe/32767. 0*(sup-inf )+inf 
end ; 

(Repartition gaussienne) ^j* m'jjj 

function Gauss (moyenhe , ecar t Type : real ; 

var germe : integer ) :real ; 
var k:integer; S:real; 
begin 

S:-0; 

for k:=l to 12 do S :-S+unif( 0. 0, 1. 0, germe) ; 

Gauss : »moy enne+( S-6. 0)/12 . 0*ecartType 
end; 

( uJjLj" i-jl^^xJl : cc;irl type i k..y« : moyenne ) 



Integration par la methode de Monte- jJjLS' _ cJ^> kJLjs J_p H>\£* : Jlio 

Carlo. 
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jl?- f(x) J <*1~>- [ b, a ] ojXiil (Jp y = f(n)a iLlSC* v_jI~j- x±j LJI ^yd 



^ 



V 


1 








/ 


mm 


^^ f(x) 






^^^H 


»■ 



Jpl^l^N^^JbJipyJUjL^-Y 1 J* J-*-' - f (x) dx, ^LJ.1 .-jLJ- 
As-LiI j^ i*iiyi .kUJLl P aJuJI v-j jl i « y s= c j a =S x =S b JJa-u-Ll J x. y 
I JJ^J.I Aa-L*. J! J*l£Jl v-J VJ^- -W^ J^V 1 JJbJI Jl { y ^ f(x)) 



N 



N 



CO 



f(x)dx 



(b - a) c 



program MonteCarlo( output ) ; 
var germe: integer ; 

N, P, 1 :integer ; a, b , c ,x , y :r eal ; 
function rand:real; 
begin 

germe : »germe* 899 ; 

if germe<0 then germe :»germe+32767+l ; 
rand: "germe/ 327 67. 
end; 
begin 

N:-10000; germe:-17; P:-0; a:-0.0; b:«4.0; c:-16.0; 
for i:»l to N do begin 

x:-a+rand*( b-a) ; y:-rand*c; 
if y<-sqr(x) then P:«P+1 
end; 

wr iteln( 'integrale de x*x sur [0,4]*); 
writeln( 'valeur analytique: ", b*b*b/3. 0: 8: 5) ; 
writeln( 'valeur approchee: ",c*( b-a)*P/N : 8: 5) 
end. 

( i^ijlG : approchee t J-l^ : analytique i i»J : valeur ) 
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Indentation «-JiJl 
: twIjJI Ljjyi. ^L-uJL; iSjjj"^ ' _^ au -" f c i„r A ' J* 9 J* i-S l /t-LiJl 

if x<t[c] then if x<T[c] then 

bs»c b:»c 

else else 

a:-c; a:»c; 

Procedures Var, type, const, label cA£j*&\\ i oliyuil Jl=- ^ o Oa . t JL&i\ 

. iJ}J.\ oljLJlj function j 

begin if c then El 

El; else E2 

E2; 

En if c then begin 

end El; 

E2; 

while c do E En 

end else begin 
Ep; 
while c do begin 

El; Em 



• • > 

En 
end : 



end 



for i:=d to a do E 



repeat 

El; fer i:=d to a do begin 

• ■ • El; 

En 
until c En 



end 



etc. 
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(Portability) JiJl *ij$~> 

I SJ_p-^ll 5jJJ| -^ Sij^*il oL-vJl Vl U.«.t......t V s 

>()!:*,.[] = /*- + 

{ } • < 

{ } T [ ] 

(• •) A (. .) 

@ 

. jL^I oL— l^-"%0 ^ Jj> JU- J S(| JLjc~4 ^»ju> *_~£ 

'a' < 'b' < ... < V 
'0' < '1' < ... < '9' 
ord ('n') - ord ('0') = n s£ n « 9 

. JiJl Slfr~< oLbS' lj~J ' + ' . . ">" jl succ('c") ">\i» 
* ( 3 Jxiil Jki\ ) JaJI J UL~» Oo^dl 0isy«ilj aJJjOI oLJi£ll V[ J*j£~3 V # 

jjp i l^b-Ai JlSLAJl J aJU- JSU : ^.jjjJ> IJU jJj (jj- iiJJ liJi J*>c~j V * 

ic-j^wf »*»?- t ( j»iiJl J>j t 8 OLw-Vl ^^iu J L(it ) ci^J. J^Ldl oli oU~Jl 
. ( Uu, Jib J-J Set of char ^Jl * ! Y^.y> 59... Jp jUis^I ) 
. <Lu«Xwll ii JbojuVl j! ApJuJl j»^ajl J£J C-jljill ,j*- ?y>kjA\ AjIJj J r-"^ * 

o^JiL^ ot>U^- w -jjjLjJI JJ ) <_j_j_~*U-L iiUAl w>UjJl tl y>-\ j-^~s* ^~/\ * 
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. ( ... 

jijli-11.4 
t ( n JJ^Ip ) n ! ^-^j ) ,_j^ n ^ i»KJ (Permutations) o%xJl JS ,_^l _ | 

. ( SDE SED ESD EDS DSE DHS N = 3 "ib. 
* ( Z' j^ ^ 'A' ) ,UVl J J^UL ^ J* Jjuu^. t U; ^ ^<J _ : 

■ ^^ «-*/»% ( < 1000) £>^> :,_u> J U. - 3 
J - uJI >=■•** M^ 1 villi J J^-Ji t 4^^li £^ J^l£Jl ^^Jl ijuj| ^.Lo _ 4 

. 500 ,y>^Vl iJLoLSai ilj^Vl v-^l . w; 

: JISL.I liii. ^ ^ Jji n Jl ^cS\ _ 5 

1 1 

1 2 1 

<C{ Ux* t jo^UJl t i^J| J 13 3 1 

c 1582 f UJl J ^^jl ^i ji^ j^ ^ Jjju _yj| ^i jL ji j; . jii J| 
Oj& ^ 00 i^ilVl oLuJl la* U 4 i_S ^ 4 Jp ^ iljjf ^ jU 

. 4 J* (W L ! ^ j^l ^ 
f lijf i~'li t ;LK J£j v^JL ^k j| J* ^ J s^^ oU5 JjJlsr . U. _b^ _ 7 

• ^fZJ*": e?-^' ^ia-J 1 
gjJl gy* a^jj V . U^ L4J jjjl j^ iij J 4 ^ ,__^U I _^ LSI _ X 
. i>b«ll Uj-Vl JpIji ^ t oUjijll dUJtf t / * - + oLL*Jlj JL*>. 



H£) 



V ZjA* >j^ ^ ^ o\ JSLio ( ^ jl/ i^ji ) ^ j5j otUap rLt 

• -JJ^ 1 ^ lei J^i 
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. jU5^_ V 01021010... _. 0102102... : JU» 

ill£>-l J* ly£ M 0^ jf JSLii (4 X 4) 1.1) ijj Jp ol£L jU *~i _ 12 

. ( UjJI i_*J -U-Ul! U_; ) ,2;Lo 
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( j^>Ul-l LaaII 



SjlPu^a S -_i JLa 



Programme, Bloc, Portee, Region iuk^o t <_$ Jj> t SjAi t ^aU jt - 0.5 

Program ... jl _iU- 
( 2 Jail ) : oLijjjijj oU^-**. 

begin ... end j, — =~ j ° J ' is 



iki' 

cjUj^uJI oUi rvaJ Label 
C-jIj^I i-ajjAj" Const 
f IjjjVl oLLyu" type 

procedure 
-^' * " v function 



: jljuJl v_j^o _ 2 
program ^j (input, output) 

. <L>l^Sjl_j etl Jill JIapL ptij yy>\jjj 

: j* ( ill Jjl jf ) *lj>-V 1 Cr-^ ^^ " 3 
procedure .. o\cs- 

begin .. end ,»-~-= 



S,Jis 
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jJl olj-liJl <iiiJS t Ifci i^e- j~ J ^}\ Is j]\ SjJuJl ,. i_s^J.l iikj o_jSJ -4 

4jL^ ^j-Jli jv-^-U jj JJI j^ijjiil jisLo LfU 7-J^^aj -CiixJi i v-jjjj.1 (_>Jj> j_jSo _ 5 

(Identificatcur, Symbole, Separateur) J-^li i yj i oyu- 1.5 
B52 pi2 vazy : i-iy* iJUy <. ^V5j»j i_i^>-f •y. Jais o^J.1 ^ilb _ 

J_jJju U. LgJLS" iU— - 1 
jW aBc Abe abc : . . . »Jj t itLU ^ t ij^w' «. oj~£ oL- JUju—J jLL- _ 2 

'. i)_jL^» o^Lic jj^jJl S j^«-J - 3 

[ ] { } T 

(. .) (• *) AOU@ 

goto 13 : Jb-lj J-s<pU *j>-j J*Vl (J^ v£ ' V --;L^ ' O^r*- 4 ilr^y^ Oy*-^ Cv.-^ 

. ioJl*-^ ^yu go to : jy>j j\ i-JLta 4*1? t uyw Jj-li J-^ ^j^j j^-? V _ 5 

(Commentaire) { SJa^% } ilb-*>Vll ^_j5j _ 7 
. C&j**£ (••• with, begin, var) OLJjJl oUl£Jl JLjO-^I jSIc V _ S 

(variables) olj-Jti* _ 2.5 

. i^J *l_^?-*if { jfib^>£- c-jj^U-I S^li j a*j» jj* ijLS y» ^rtjcil jl _ 

. ojJLtf- _^i- OjVl ioJiJl j_»£j - 1 

« s >r ~ * , • 

var i : integer; x, y : char; : \sywj U^J aj iai^j l^_..«.:.a t jJcll pjj^S (jP £ _ 4 

; twCjJ! ,j i_jjjdil j^ci\ jj} ,j~£y<± A^-Z-i *~2jd-\ jL^=M *A; jl ^_^ _ 6 
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n, p, I ^Aj Nombre Davogadro, Mauvais Payeur, Longueur Donde 



Jlio 



T[i..i] 
X. reel 

( «L? ) lien f 
input \ 



-_<S 

yvjuil dj£j jl j£x 

LIS 

Jjji- j__.£L 
o J3 Ub- 






_j OJj *-«— "J (*~ 
(iilentificateur) ^^ 

(identificateur) [ indice ] [ JJj ] >_ijjw 
(identificateur, champ) JJb- . Jjj 
(pointeur f ) f JJj 

(fichicr | ) | >~ 

individu [ NoSS ] . Pcre \ . date [ mort ] .an l*J <. eJJt; JS. 
( i- . [ oj- ] j^jt . | v' • [ NoSS ] .r*^ ) : £jU 

(types) c.|jj| _ 3.5 

. JJ 4APjl>J SbV tSUil j^ill fjjl ■ a,^.. _ () 

s ^ — ? 

P^J LijAa (, £-_jJl i— S^JW Jaj^j _ I 

type eomplexe = record reel, imaginairc: real end; 
N = 0... maxint; 
( 'J£ ■ imaginaire ( Jua- : reel , ^xu. : eomplexe ) 

t «Jb h** t iib jf ,1^ LsLy ^ G ^dU i^^ ^ ^j| oii^ 01-2 

: oljJo.1 JjLj OytJj i (pointeur) Lb 
typeT = .. VarX:T... 

procedure (A : T) ... 
A(X) 

. <L~udl jl_u-Vl 
■ s*^" tj t o* ""J^J ^-^ <■ Jjj (. iw. t £^> : ^ 4_1j^i f-ijjVi _ 4 
• W-V ^ o^. ^ ' ^^> JL^I £>JI J»S ->. (JOL _ 5 
> >= > < = < = «^«JI oLL* ^l ^J| > ^ii _ ft 
J*-" ^Jl ) ord illjJl ^ ( ^ilil j| OJI Jl JliJl ) predj succ JI_,oJl t < 
• ^^ «-k ord J u-J \ u ' "^U-Jl Ijip Li . ( ^ Jl -3joJl 
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. (type pointeur) JJj <qS\j ( ^j , J^ ) ik^Ji 

(constantes, reels, Entiers, J—'iL* ,, h>^^a aljifrl <, iJui*- ;>I-Ul t "^~>)j5 - 4.5 

Chaincs) 

const pi = 3. 14159; zero = '()' ; n = 17 : m n = - n; 

olS* *]aJci\ Jsi ) ij-i* JSLi J_s- t real pyjl -^ i ^JJ-\ C-.UJI ^i^j' _ 2 

3.2E1 : : 10 x ^ Ex ) Jj JS^i Ja 3 \ ().() - 0. 19N e.3 : ( iUUJl 

. 0.43E-2 -ftlEO 
. -61 32 : ^ ^j iSj^- *y>r O jJo <. integer f-jJl ^ ^tJ-^aJl c-jliM k_-iSL _ 3 
CjU maxint bj^_ <^>- i - maxinl .. maxint ojZill l j-»ws> AioJs iJ jl > £ 

Ju t Packed array [ l..n ] of char £jJl -^ iw n Jl ^iJLJLJl Colill v_^j_4 

. ( 'JLJL-' ) 'chaine' : »_JJl>- ^"Af- 
. ^k» t JJ~\ l ^Li£ dUJ5 c JlpLJI Ifci U oL~Jl JSCJ 

: i_iJJ-l o^A* jjSCi 4 i«^. n Jl (_$i JLJuJl c^liil j 
' le fond de Pair est frais' 

(pointeurs) *^:>f Hjj^' J^ /«-» VijU-^» nil OjUI JLxj - 5 
: L>-lj Culill OjS^j lL«>- jlSlo J5 J c-jlill i_jy^ JUjc— I j£c _ 7 
const min = - 7; max = 7 ; typeT = array min .. max of integer: 

( SjJUJl J\ ) ^.U^l ilO; J oJjlJl J5 Jj/ c_^-j _ S 

Syii tJjJl>- t "W— u t j_^j ilJUJ i, 5^ _ 5.5 
(Intervalle, Enumeration, Booleen , caractere, Tableau, Article) 

7.. 18 , '0' .. '9' Lundi .. Vendredi ( i*JLl . . . OyJVl ) 

u^'V 1 tlj ^ 1 '^j'^ 1 ^--^- , ^«Jr' ^ !' -^-Vl 

{lundi, mardi, mercredi, jeudi, vendredi, samedi. dimanche) 
(inferieur, egal, superieur) Ji' ojI~j _»si 
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oli^U t ord, pred, succ : ^J^jl f-t^J^L i^li-l illlJ ^y> oLiojJl 

^ <ji>LJUjJI . type boolean = (false, true) *^> J,jj U_L~° i-jytll ^ 4JI Jil^o _ 2 
. <~J^Jl f^^J^I oLL^j i (V) not i (jl) or <. (j) and 4~*kl! oLJU-*Jl 

a^j . LiUjc~u| j-dll oU-»JU jIjlxJI ja i char i i»^> U_L_a ^Jydl j-^Jl _ 3 

^-J •_/£ ('a' < 'b'..) Oh-'y «• J^ 1 J* -^'j "-J^p-bU J-ii j^J= ^i^Vl 
(succ ('()') = oJ^j ('0' < T < ...) Oir^V i f^ 1 J^J ' 0>^ »jjj-aJL 

"I"..) 
chij t oU*>U i ord, pred, succ : i^jJl f-l_^VL< i-^UJ-l iilL" ^ oULjJI _4 

ord (chr ( n ) ) = word - 1 .j-^^*-" 

array [ JJj ] of o_^> 

array [ 0..7 ] of char 
J *(jl£o array [ boolean t '()*.. 7' ] ot reel : jUn>-l 
array [ boolean ] of array [ '()' .. 7' ] of real 

T [ i ] : ijyu*. (ju ,_^So j^ ^ h\£ (indice) JJjJl j^_ ,. Jja^- ^Jc J _ 6 
x[ false ] [ '2' ] J * JlSC x [ false, "2" ] : jl^^-\ 
. 5JUp!>U Ja^yJ J^-jj ^ i l^k- ^ X [ b ] AjUSCJI 

: jlS" ^1 fy \jA \^j> J5 t cj\jJcj> *s-yJZ- ju* a^ii f-jjl _ 7 
record cl; TJ ; c2, c3 : T2 end 

: J^JJ slivo jiJLil |^>jc— j 
record a : Tl; case b: boolean, of true : (i: integer) : false: (r: real) end 

Y.cl : XkJL> \ij~~* JiU ^J jj& t ija Ji^. ^d| J _ s 

(Affectation) JwC- 6.5 

variable : : = expression 
x: = pi + 1.0 i: = i + i : Jb, 
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j^Sc\\ j\ (trunc) ( ^Lil jl ) «Jaill L»; J t ^~>^° *Jj<1 ^h^- sAt- ^-^ ^53 _ 2 

(round) ( jjj-aJI ) 

< = ) 4itAf- j^j-sj 4>7 ; i ol — oo 'yi _jl i. >* .. v -u«j ^ li_!^> __ — »-JI u_^5«j _ .' 

( in <> >= >< = 

x -Z- y + z / y x — y = z + y -:;:- y 

: aJjUJI oLi..j^l ^-*2>j> j^i Cj*~** ^yy'j oljjiu* •_►» Ji^-Jl _/~*JI o_?5oj _ 4 
not 

* / and div mod ijj-J> 
+ -or ^y^r 

j^ x -:i:- y + y / z = not q 
(l(x*y) + (y/z)) = (m>tq)) 

Ji. i i>«jw. A^xJl OjW <. i?v?w» ilJtf-t Jp f.^.e.Ja.7 Xf mod div * - + _ A 

. succ, prcd. ord, sqr, abs Xh~~* HjA\ JUaJl 
lil ^ ^ odd (x) <■ «j*wJl Ji Jv*J-l J-° J^y*^ <JW*i rounds trunc 

. iw Jl «^>«waJl Jy^ chr (x) <-. \zJu> \ jl5 

ii^xll Jlj JJI Ji« t V^ i^ull OjJl*?r <■ V^ j1 -^ J* r^r^' -^ * ~ + - 7 
t sqrt t In t exp <, cos «, sin i 4-^Jb>- *•«-•»* Ih'' 3 >* / • s H r J ans ^r-~" 

. SJLib- A>^i ol_ji Ji_jJ jj* arcUin 

(pointeur) JJj t J=~o : J^-Jl Ijlp U ^ JJ ,y j^ 1 ^ ( jj^i o' ^ - « 

. . . t JLJu- i ifrj-** <• o^ i. Jj-^r 

(si, cas, pour, tanl que, repeter, Avec) ** <. j^S" t llU? <. J t SJU-I i lil _ 7.5 
READ, write "t^ 1 ' S A 

(false) tk^ io-iJl C>\ i (true) «> i*Ji!l Ul wu~iJ v _ 5 k* i _/v~«; y>> \?M\ _ 
if condition then enonce else enonce : lit ojL*Jl J _ 1 
if condition then enoncc : j! 

61* lil **[ else SjUll JLii "V 1^ «. L^ J^tJl jl* lil Ml then SjLJl i_& N 
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(begin enonce; enonce ... end) •L-S'y 

: JUL. 

if min > T [ a ] then min : = T[ a ] 

case expression of c J: El;c2: E2; ...;cn : En end 

. L»_l>-j ^j Ei ojLuJl 

: Jli. 
Case comparaison (x, T [ c ] ) of inferieur: b : = c ; egal : y : = c ; 
superieur : a : = c end 

J SjUJl _ 3 
for variable : = expression 1 expression 2 enonce 

succ t 1 ojUp ; ig^j f~y> /y ♦* (^^1 ^Jtdl ^-j ,p~ <• SjL*JI j\Scj ^» .. J 
ols t 1 j^Jl > 2 jytdl olS' li| . ( 2 5jLp . . . succ ) succ t ( 1 SjLp ) 
. succ •j* ^Ju pred jJaJ J* Ja^ t downto_> to JlJL^.1 jl . j_ij ^1 SjUJl 

. o j Jtf j-s- <ajS ^fJcuJJ Oj>j <. -Ua.'- " J I _bu 

: Jls* 
S : = ; for a : = to N- 1 do S : = S + Z [ a ] 

ULU) SjLJl J _ 4 
while condition do enonce 

: Jli- 
f: = 1 ;i : = 0; while f< 100 do begin i: = i + 1 ;f : =f *iend 

repeat enonces until condition 

■ JlS, 
repeat read (c) ; x: = succ (x) until c = ' ' 
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: Jli* 
with p| [ i ] do a : = b - t 

P T [ i ] - a : = p | [ i ] . b - p f [ < ] -t ^ jil^. 
Stly l i_^s bj a ol^JcuJJ \ cf ^SjCj input J^-jJl J>— ^ uy^ \y£ read (a, b) _ 7 

, Olw Jjl "UJLap- I. A^s^j^trtO jl Ap-I 

j|jL_f-l 4_.l^ ^S . output rj-^-l J 5 ? 1 - J-* e j^r*^' *-»=* *_^j" write (e) _ 8 
jl ie-j*j£ jl o^is jl j/j-X»- ,j~J 'j50 ^^j t L-t>Lu (. OjLw i, <LiJb- <. h*^>**a 

: ipLkJl JJb~ JjJl£ J>s . (pointeur) ">U^ 
write (car: 3, entier : N, reel : total : dec) 

n 

. output (Jp aJ J^jOI cSj^-' _^a^Jl ^^ writeln 

(Procedure, Fonction, Ensemble, Chaine, Fichier, Pointeur) 

4 oIjJcl« jp gj*a=Jl 4 *l>rl ,>** j£c .kS y SjLJ '^| •ly.-'Sfl P> J«i - ° 

* — ' > t * . s « 

JLP Mj iijj^o LJUi jj5v V CjIj.^ 1,-s-l tUaPJj ( SjJi oJL* ) . . . t f-ljJI 

: Jit* 

procedure P (i,y : integer); var /, c : integer; 
begin for /: = 1 to i do begin 

for c: = 7 to j do write f*'J / writeln end 
end, 

■_/5^ P(15, 10) : yt* i ilUill JaSU^I :>!Uj .I^VI Jxitf .1^1 .IX SjU Jl- 1 

i ( (_£jj_JaJl iaj.-pl Jl cJla ,c-l (JjtiJl -k>~-jJl A^J ) i*J Ja^—jJl jj->u jl 
jl ilb 4 l*lj-^-l i ( (J*iJI Jiw^Jl Jl llL« ijasu (jjjj-^Jl -Lu-jJl ) Ij-Jc* 

: Jit* 

procedure sigma (a, b : real; var c : reo/,) ; begin c: = a + b end; 

alors sigma (y • z/2.0, s^rr (i2), x) J jili 

a pour effet x. ■ — y * z/2.0 + a^r ('z^ Jj^jiil 
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: Jfc. 

function S (x, y : real) : real begin S. ■ = x + 7 «*; 
x: = 5 f> * z/2.0, sqr (12)) 

= ) owdl 4 ( <> j = ) sljUl c (-) JyJl c (*) ^WUdl * (+) ^^)" 

. (in) .^lj (>=.,< 

■ [ ] h £J> **>**«il 

: JVi- 

var possible set of (noir.jaune, rouge, vert); C : set of c/iar; 
if «o/> in possible then ... 
C: = f'0'..'9', '.', 'EJ; if lu in C then ... 

f-jJI /y j& a*-* n •y> (JL~L*i - 4 
Packed array [ 1.. n ] of char 

: Jit. 
software : = 'logiciel' avec var software: packed array [ 1. .8 ] of char 

: Gr ^" 
f : file of type du composant 

. f | *l»yj j-J*-> ^ SiiUI 

: oUu^l 

*Jl)I a*^ -b 1 - JbJ^- <y reset (f) I il get (f) 

i^& ^^53 t i_illf rewrite (f) c-^51 Put (f) 

J^«-JI iAf- jZ*-[ eof (f) 

reset (f); rewrite (g); while not eof (f) do begin 

get(f);gt : = f t ;put(g) 
end 
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ya-Jl ilji j-^y . JjJa-* ^^ ^ L-^5yi oLw Ut^ j-A text IjLwj ^_3ydl p_^Jl - 6 
•jSLcj coin (f) _; i iUly i j.^ ^ t writcln <t) _> <,\sS t ( \^dy> jJl^ ) 

JL~L" J,l a-$Lj-£ pX~- ) oU-~Jl jyj. <£ y ja oljpf k^,\zS j\ Zc-\j2 vi.UJLS' 

. . . ^SJts- t 7t^>*sjo ; ( ou_*u 

. :>J^ r-jj jj tj^ij^- j^' JI '-^" (pi'inteur) IJ-Ul f-XL - 7 

: Jli. 

type ptr = \item; item = record va/; real; lien : ptr end 
var p, tete : ptr; 
p : — tete; while p < > nil do begin write (p}.val); p: = p\.lien end 

Jl 6\~>- IX* {uJiJS- ^ { dispose ik^ljj «-aki j new ik^ljj ^^^p^xil ^^Jcil jJUi _ S 

. >JU>ljJliII Xt-\ ji 

: JL. 
«ew (p); p\.vai.= x; pi. lien: = tete; tete:= p; 
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j-oLJl (Ua^II 



oL&hJU 



(3.1) (3.1) (3.1) (2.1) jJL*. iljj* ,> 5jyi 

(3.1)obJ_/l JjJb;. 

(3. 1) io^J n J jjL.^- Jsu*j 

(4.1) i^UL J*UI ^aJI ^L^- 

(4.1) iJLJl i>-jJJl •y iblw 

(4.1)*JUI jf vrjll p-aJlOfr 

(5.1) — 1 _> APj-^> t *j juS^ 

(5. 1) -^jJ ii> Jp ^^1 _, JU-I 

(5.1) ^ J ol-Uldl JU- 
(6. 1 ) 4iyu iui °yji 

(6.1) ^ j ^lijl mj: 

(6.1)(6.l)oL.>UjU 

(6. 1) oLijtf.,r?,» i^ijj> J-voLj- 

(6.1) / * - +j^ws> oLi 

(1.2)^^ 

(2.4.2) (1.4.2) ^ J^-i.^ 

(7.4) (7.4) (4.4.2) J=>^ ^L : 

(6.4.2) ^>a ^J 

(1.1.3) Fibonacci aJLJL-x* 
(2.3.3) (6.J.3) ol±Ll v U>w ^ULl .U^Ll J_,j^ 
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(1.2.3) ol*L»«^- 
(2.2.3) pj J5 4j |.UJI ^ ^JJI J**JI 

(1-3.3) ^^tp.^jjjyt 

(1.3.3) ^y^-^bJJ^ 

(3.3.3) SJfc* c/^Lr jy 

(4.3.3) JUi J i_i^f «y 

(1.4.3) dj^jxiils 

(3.4.3) oLs^dl (^JU 

(4.4.3) JrfL.j 

(4.4.3) jjoJIp f^f i_~~4 IpI^I 

(4.4.3) Oi^r-^ £j>~^ V~^r ^i>=rl 

(5.3) ^Jlp pj^i? t_~~j£ iJb 

(1.1.4) JJIScJl iJb 

(i.i.4) jiisaj ^iiijj 

(2.1.4) )a~J> JjJb- « *l^l 

(2.4) iljiill j^Vl ^UJl 

(2.4) (Ackermann) oU J S'l «Jb 

(2.3.4) jJU ^liLl ^jiJl ^"ill i«J jp ipjl 

(2.3.4) ( Ja.^ Jj-^r ) JUL- S*ly .I^J 

(2, 3, 4) Jlij ^JW 

(4.4) i*y*£- *A£ 

(4.4) ic-j^ i*\J 

(6.4) L~^s ^jjj, Ijj^jIj 

(6.4) ^UJ j> 

(7.4) ji- ^ 

(7.4) ojjjia O'A^*" iwJ 

(8.4) iyiU- n ,Jp ,_yi! i.b£ Sal* I 

((10.4) (10.4) Ljju. 4-J. alJL*l 

(10.4) jJjlS" _ cJ r ii> J* J*l£JI 
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SjJiL. c~J JlCUl SjU . ( Jj> : l«-U _^> J iU& jU^II ^ J ^^ ) 

tk> Jil t ( . . . UCSD i j^_ p ) j - L a » ikJjj S^J-U j^- ii.^ 1-4 t i-i^^ 

t i*K3l ^ oj_fl.il I J J-JI SJb-j i S/IJJI J oLk*llj oLO*dl ^jV 
i (jL* )0lJl 1 LJ[ i^jLj ^'L' £»y jl i t, J* i oUl •>• -_~,li-Up j^ i-Jjll 
16 k u-^U-jjSyil J* 32 jf 16 t 8 SjIp ) -JKJI J o 128 Jl 4 -j- -l»-jj jl ^ 
8 «jUl JJdii . ( Sj^SJl oLj-U-l Jp 64 jl 60 t 48 t 32 4 -v^-l*- ^il Jp 32 jf 

}Ulc ^j-i" V jJiJl ) &J> JISL.U1 J oLk_*il ^jJI Jslj-x; of j-xr^ 

*>^>^ai\ _>IO_pbU ,j^Lj>- tvAW-I /»-" ) 2 SJipLiJI J -_>J&i idi" Jp : ^"^ 
t i*J 2 n A^-j-^^aJl jIOpVI Jl^L' jl j£j; t on^ iUS J* . ( -JUl 
. maxint 4*J zJ^ U IJLa 4 2n-i - 1 J| - 2n-i -j» 
^Vl SJb- Jp J5 J_ic t ^j^UJJ UJ cjUS g jl jl ,jCjI 4 i*K J* : ( _ 5 «s*>- 
^j-^Jl *_jJL|j 38 Jl J^-J i*J J-Vl J^l 4 32_. ^ : t£j-UJl *jJrlj 

. iys* j»l9jf 7 Jl 6 -j- 

( iLucuwi^ lSj 5 "^' oLJI Oj5vJ t ids' J ) o Jc- : J_^ 
i_—Sjj -yi J-JI *_j 4 ioJS" p jyi J5 i_— Sj» n jj>-j JL>- J hjS n x p Jjj : Jj^?- 
Jj-^-l J ol_J5Jl •y o-lj!>y iij-»>J.I i«-iJI : (indexation) ,»._■■>,>£.".! L 

4 ( JUil JiJ-l f[ *J> ifliljXa ) OU iaJ JJ-OI Jj^J -jSJ 4 Jj^l JU- Ji» : fl_/J 

SJb-lj ij Jaai Jaj^u-3 jSJ t oUK 10 Ji^J array [ 1.10 ] of boolean : ,yj 
. iJb^a ob ^p Packed array [ 1.10 ] of boolean Ji^J i iJLSGL 

jjj j^SvJ ( in * - + ) 4_pja?J.I J_p oUUjJI 4 iJbza ob iLJL-i* : 4Pj-<wf 
iJLs^ <pj^>cil (i-«- Op 4 i<J53l (»->t?- 4j ?w>-' ■ 1^1 . oLJl Jp oLL>jp 
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«-jJI (Cs U I Jjb ( 59. . .0 J^ ^-^y oU_j»> t ij 60 -y. oUI? «j >\io ) 

set of char ... 
. ( jLL^I i_JaJJ : r-^Ua^jJ ) ioL ,Jj- UL& : i*~- 

ob 6 : (CDC) Display Code Pascal oLw t_~»J 




1 

2 
3 
4 
5 
6 



u 





1 


2 


3 


4 


5 


6 


7 


8 


9 


N 


























A 


B 


C 


D 


E 


F 


G 


H 


I 




J 


K 


L 


M 


N 


O 


P 


Q 


R 


S 




T 


U 


V 


W 


X 


Y 


Z 





1 


2 




3 


4 


5 


6 


7 


8 


9 


+ 


— 


* 




/ 


( 


) 


% 


= 




» 




t 


[ 




] 




¥> 


{ 


V 


A 


r 


} 


< 


> 




^ 


> 


1 


i 















u + 10 *- d = 



( JLpU ) chr (45) = ' ' ord ('A') = 1 : Jb. 

obj 7 : (Parke) L*jJ, j^Ju ASCII olw i_**J 





1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 






1 


2 


3 


4 


5 


6 


7 


nul 


die 




9 


@ 


P 


« 


P 


soh 


del 


i 


1 


A 


Q 


a 


q 


stx 


dc2 


rr 


2 


B 


R 


b 


r 


ext 


dc3 


# 


3 


C 


S 


c 


s 


eot 


dc4 


$ 


4 


D 


T 


d 


t 


enq 


nak 


% 


5 


E 


U 


e 


u 


ack 


syn 


& 


6 


F 


V 


f 


V 


bel 


etb 


) 


7 


G 


w 


g 


w 


bs 


can 


( 


8 


H 


X 


h 


X 


ht 


em 


) 


9 


I 


Y 


i 


y 


If 


sub 


* 




J 


Z 


J 


z 


vt 


esc 


+ 


i 


K 


[ 


k 


{ 


ff 


fs 


j 


< 


L 


\ 


1 


1 


cr 


gs 


- 


= 


M 


] 


m 


} 


so 


rs 




> 


N 


T 


n 




si 


us 


/ 


? 


O 





o 


del 
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y ^ x -S- 16 = ^>y ^->-p 
( J*\J ) du (12) = O ' ' ord( , A') = Ci5 Jlio 

JJbJl oUL- j_oiJ . V^&lj! S^waJl Oj-^-Vl Oii >^ * ^^ l -9> > -^l 

(..., dj^Jl Jl Sj^p = hs t (alarnic) jliil = be I c (return) Sj^p = cv ) oUwil 

. rciour arrioic) 

ii S EBCDIC . 



1 

2 
3 
4 
5 
6 
7 



240 
241 
242 
243 
244 
245 
246 
247 
243 
249 



espace 

( 

+ 

) 



64 

75 

77 

78 

92 

93 

94 

97 

107 

110 

122 

125 

126 



Js^zj t *Jaii aLUJI oU-Jl j-«-^ 



a 
b 
c 
d 
e 
f 

g 
h 
i 

J 
k 
1 
m 



129 
130 
131 
132 
133 
134 
135 
136 
137 
145 
146 
147 
148 



n 
o 
P 

q 

r 
s 
t 
u 

V 

w 

X 

y 

z 



149 
150 
151 
152 
153 
162 
163 
164 
165 
166 
167 
168 
169 



A 


193 


B 


194 


C 


195 


D 


196 


E 


197 


F 


198 


G 


199 


H 


200 


I 


201 


J 


209 


K 


210 


L 


211 


M 


212 



N 


213 


O 


214 


P 


215 


Q 


216 


R 


217 


s 


228 


T 


227 


U 


228 


V 


229 


w 


230 


X 


231 


Y 


232 


Z 


233 



succ CO ± '/ 



succ (V ) ^ V 

( -U-U ■ cspacc ) 



a a ' 

(pile et tas) ^JSj j-^Lo 
-kJ^j" -Lp . outputj input o*>U^Jl diiJSj t JljjJlj ol*lj?-^ll JiCJ OLp-)/I 

L^p^L j-CJ.1 i_jtj>jil oljJjcdl dJJJL. j^Si; t ilki- J5 J . ^ji^Lo Lir -«-~j" o^lJJl 
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^ j^c Sl_~>- SJU ( new _; H^J»L\ ) lSjj>c!i\ ol^JcuU jySl, t JjUII j 
*\a,-*»\y_ ) A_«jd.l -j^i*A-Jl ^>- j\ i w>LJ^Jl JLjU ajI^ ^- (new) l j^jii>- ilaJ- 

•jW" ISjj>c^\ ol^JcJ.1 eJi* t_ ~3j jvii . ^JL^ll J <-UJl (j^^SvC N : ( dispose 

■* * 

. ^JlSslI ^jt- Sj-If ^yj£ (5-*-~J SjJlJJl (J iilalo 



i_r 



a* 



a" 



a£o 



- 'i ■- 



o ji\^t aSYi 
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j^}\ oliak£ ; 2 Js*L> 







<c\ 



6 



V 



r\ 



V 




6 



x 
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l 



a. 

Y 



X 



T 



E 

L. 




I ^ 

tt> JLi 

u u 

o c 
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O =, 











V 



9 
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V 



E 
a 

o 
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ffl 


r i. 


I l 13 J 1 

in? w 




u-i O I 5 

1 Tit 

r\ ■* 1 

(t>t o «— - 1 1 

1 V I C F ] 


I 

hti 


A (°) 1 

r ) 1 i ** ) I 

A M°l A 8 

■°l -^ rn ■- 
A v n » « rn " 

c 1 m T o f ° T 
° 1 £ "J S; c 1 

** r- n c t W-^ x J^ /\ 

w 1 zz 1 ' l _ c f n 

• rn 2 1 ""IS 


I "« 


jn IpiS 9 ® h 
6 0U^I Y A Ah 
Y Y Y h R R i rJ- 




1 c B O £ 

A | 1 s s £ Cly s 

** " a c * 1 r 

a p Z. £ ■ • < « 

3 C a. w T3 L-j-J 1 

~ As ° T V 1 A 

_J Si: (O T /N 1 I id g f c 

r c ii A « t_l |j= * < 


| A A 

JTJl 

o 

L **" 

) £ 1 c 

> jj 1 A 


J » 1 ii / \ V 1 Ol 1 fe i 1 < 

lllyvy y Y YY ^ 


^ |i| 


u 

c 
a 

c 

■JD 

. 
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. 


;l * 


* A J L J L 

Y 


« [si 

V tA *J 

6 £ 1 

T x — 


■a 


•>• 
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j 







i 




c 
u 
« 

(A 

c 
» 

JD 

i— ■*— I **J 

w 

» 
c 
o 
w 

D 

u 

XI 



l^\ 



V 



A 



V 
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^U JJJ : 3 jpsJU 





+ 


- 


• / = 


' [ 


J ■ ■ 








* 




t () 


< > 


< = > = 


<> 






' = 


espace 


{ } 
















( -ipL: : cspacc ) 




















^iUf\ Cj^LLj: 








t 




u 


@ 












[ 


(■ 


{ 


(* 










] 


•) 


} 


*) 


4_lLL cjUIS 1 


A 


and 




end 


N 


nil 


S 


set 




array 


F 


file 




not 


T 


then 


B 


begin 




for 


O 


of 




to 


C 


case 




function 




or 




type 




const 


G 


goto 


P 


packed 


U 


until 


D 


div 


I 


if 




procedure 


V 


var 




do 




in 




program 


w 


while 




downto 


L 


label 


R 


record 




with 


E 


else 


M 


mod 




repeat 







AaK 35 Jl o If. lS-Ls-L i^jliJ-l OUKJI iL5 t i_Syu> Jjf <_$jJ dj^i of j5Cc V 



•J I 41 



( Jj^j ) Lk>- false 
( Jj^. ) «^> true 
maxint ... maxint _. IsJjf- <>^>^si\ j>I JLc-Vl maxint 
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(false, true) = 
outputj input : *>ta . ^ J^* 



-y (_k— 






i*J=>liu ijl^Sj : tlj^-'yi *~»^-j jlj^p J.^jj 

i^a; » : ^wU^Jl -y> j^rjU-^ ill jJI J ^\yr^\ *~ ^ jL ij^ 

^^A>- JS J external J I i_i^u jl Sjjj-^JL ^ « Jvai^. 

x c^crr 
( 1 jp*l* ) x .^jJl j>Ju«Jl i«-- 

x iijIjJJ pLdl *_4=^ 
e v 

X J (^j-J f-lJ^jJ 
( liji» X I jl ^e> ) X tt^wiII JJUJI ^JijAo c, (Jj^j 

( ^y £y CS ) x A ^^ jJjJi 
( Lf^y {J 1 y) x "-^ 

x ijl^l *— >~r 

yj 



^1 

boolean 

char 

integer 

real 

text 

input 
output 

forward 

external 



Jlja 



abs (x) 
artan (x) 
chr (x) 
cos (x) 
eof(f)„ 
eoln(f) 
exp(x) 
In (x) 
odd (x) 
ord (x) 
prod (x) 
round (x) 
sin (x) 
sqr(x) 
sqrt (x) 
succ (x) 
trunc (x) 
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p _; -Ulp JJ ail j-Jd.1 jj£ dispose (x) 

\j\j£\ SJisLJl fa get(i') 

<Jlp JJju j-I*^ J^ new (P) 

J*>j pack(...) 

A^ivaJl ,Ja£ page (f) 

ft SiiUl pJLSj <. v_-iSl put(f) 

V: = ft;get(f) tcad(f.v) 

JLJl ^kJl i|l Jb J SisUl j-S'j readln (f) 

oLw jLtJI t olJj JUp J>*~"Jl j£j> -^ff reset (f) 

pi'Lo OLiJl J| Jj&l t J^-JI i—iJijf rewrite (f) 

idJLS^AJ unpack (...) 

f| : = e ; put (f) write (f, c) 

^u» iLp i^5l writeln (1) 
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Lg^-jJ *j> ( ^vJ^iJL ) jjj^SvJji cA&Jj) : 4 ( j?*h> 









**y* 


oUK 


A and 


et 


jNnil 


nil 


jA*0 


array 


tableau 


Jj_u>- not 


non 


V 


B Begin 


debut 


t jj Oof 


de 


<y 


C case 


cas 


iJU- or 


Oil 


J 


Const 


const 


Ooli P packed 


paquet 


o^r^y 


D div 


div 


is-^>^3 i«— l procedure 


procedure 


*\j>r\ 


do 


faire 


J*»l program 


programme 


E"^ 


dounto 


bas 


ji-lf R record 


article 


isa 


E else 


sinon 


"yij repeat 


repeter 


j> 


end 


fin 


IXj. S set 


ensemble 


AS-yt^- 


Ffile 


fichier 


J=>~> T then 


alors 


0i| 


for 


pour 


J to 


haut 


J! 


function 


fonction 


SJb type 


type 


^ 


G goto 


allera 


Jl <~-e.il U until 


jusque 


<i*- 


I if 


si 


lil V var 


var 


jUUO 


in 


dans 


JWwhile 


tantque 


llli. 


L label 


etiquette 


^j whith 


avec 


C 


Mmod 


mod 


oii 







liL>».a (jjiyw jr£j*J> 



C-JljJ 



false 


faux 


Hrf. 


true 


vrai 


7*~0 


maxint 


entmax 








£y\ 


boolean 


booleen 


J_* 


real 


reel 


Jh°*- 


char 


car 


^«^ 


text 


texte 


O^ 


integer 


entier 


«^w 









input 



entree 



J*' 



output sortie 



Ol 



zr 
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forward plus loin 



JbuVl 



external externe 






Jlji 



abs 


abs 


iiila^ <U*£ 


arctan 


arctan 


>a-y 


chr 


carac 


<**» i 


cos 


cos 


(.U^ll^-^ 


eol 


fdf 


Jjfw«-Jl 5jV 




eoln 


fdln JxJl ol^ 
. t 


exp 


exp 


^ ] 


In 


In 


o'j^ f^.J^J 1 


odd 


impair 


iyv 



ord 


ord 


^s*** 


pred 


prod 


•\ ft ' — 


round 


arrondi 


jj-^ 


sin 


sin 


^r*- 


sqr 


carre 


&? 


sqrt 


rac2 


^f.yj^- 


succ 


succ 


LJJb 1 - 


trunc 


tronc 


«**W rt— J 



►I*-! 



dispose 


libcrer 


get 


prendre 


new 


creer 


pack 


lasser 


page 


page 


put 


mettre 



a f 



read 


lire 


>y! 


readln 


lireln 


l>-.ty! 


reset 


re lire 


s*l_,«JI -u-i 


rewrite 


recrire 


iU&l apI 


un pack 


detasser 


Jl& 


write 


ecrire 


^Jl 


writeln 


ecrircln 


i^^i 
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A^-lj^i 5 JpsJla 

Langage de programmation - pascal ( 1 984) : AFNOR Z 65 - 300 JaJI «- 
JJ *-?ry> 4_xSG t (J^^j J-"!-? z^ry <j| . 7185 ~ij ISO -JaJJ "^y y* ^JJI 
: Ojj_j .oji^ .Ja*'' JISLjUI ajJU J^Vl Uijyci\ : J^jc*~<JL) oi^f JLill 
K. Jensen, N. Wrth; Manuel de l'utilisateur Pascal; Masson ( 1978) * 

(Revised Report , User Manual) J l^y ) ( ^L-JjiJl ) 
; Stljill t_^*^ o^Ji t 4jJJ \jjj*& Lajjju l *J>yu JUtf *-«^>j 

C. A.R. Hoare, N. Wirth; An Axiomatic Definition of the Programming Lan- # 
guage Pascal; Acta Inf'ormalica 2, 335- 355 (1973) 

- (J ^-jjJsw jlSCal -^ iJlio JISLjUI 4jJ ( it jJlS^^/L ) 
E.W. Dijkstra, C.A.R. Hoare, O. Dahl; Structured Programming -«- 
Academic Press (1972) 

: iJbdl iijJL *£-j}\ iSjjJaj jS\ ^^...Jaj iSLi ,J> i»^^j ( aj^JlSCj^L ) 

N. Wirth ; Introduction a la Programmation systematique; Masson (1976) * 

A. Durcin ; Programmation : Tome 1 , du probleme a Talgorithme Tome 2, de -;f 
Talgorithme au Programme; Dunod (1984) 

P. G. Grogono; Programming in Pascal; Addison Welsen (1978) $ 

H.F. Ledgard; Proverbes de Programmation; Dunod (1978) -* 

N. Wirth; Algorithmes + Data Structures = Programs; Prentice Hall (1976) # 
: J^l J ./>j. JSLij aJ-UII ^Lj^\ Jil—a JjLj j*>-Vl IJu» . ( ijJ^J^Il ) 

B. Levrat, D. Thalmann; Conception et inplantation de langages de Prog- -& 
rammation : une introduction a la compilation, Gaetan Morin 

: ^xJLiil (J fjj*Lo JLSwiUl i-jj^A la.,... ; Jlio . ( A^jyiii) ) 
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K.M. Chung, H. Yuen; A Tiny Pascal Compiler; BYTE 3, 9 (Sept. 78) - 13, * 
10(octo.78) 

Sigplan Notices iJbdwl j ojj^Jij JLSwLJl o^UjC^iI Jj-s- oU^l** J-2tJ 
: J15L-UI £JJ i^ULI &*\\j i ACM JJ ( ijJ^^U ij*i ) 
Pascal News ( i>jJ£Nlj ^-if #& J5 jJ-^j" ) 

: SpIj* ^ JS J* 1^1 * 
D. Knuth; The Art of Computer Prog- t ( ijJL&VL <c* tlj^-l &%' OjO^ ) * 
ramming; Addison Wesley (1968). 
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ob^Lc : 6 jpJU 

i pJu i <, i^ULl <GliJi jUol Jp J^cw, J> L^ jj| ^ iLLJl oJu di) J5 ,•.<< 

: oba*Jl ^ J_p- ^yiU^v-j U-U^-l lib* jl S/l . ^jUJl 
J_f Jw> jS^ij iawU- t (cas) i)bU SjLaJI Jp otherwise jl else t-y^ az\J>[ _ 

s 4JU-I Ojlji o.I>J.I_^ luNU-I 
s 4JU-I 5jL*Jl J t iJULl c-jIjJ ol^ iiUil _ 

• ( Js*^ 1 f ^ c^" ) ^L-" J^ cP J>^- £r - 

i ( . . . t ijii t <J_jJj»- ) <U_5y> CjLj _ 

t (pointeurs) c^j^l J> ord iJlJill J~k; _ 

i fl j£l\ ju aJU Jj __^ 5Jb _ 

i Packed array [ 1..8 ] of char ( jl 1... 10) = (alpha) UJI *y _ 

'...&- 

JL^-jJ ULaJI iJkjAl ) ISO Jl e~°li t 1985 ^Ul y> Jjl ^.^ il^ J 
j,JaJl i_^lji PjjA» J_p t L^i *L«afrVl JjJiil J_i ,j-o t c-oj-^db ( oL-LiJl 
dJJi -^ jl J.I <. Sj^U-l oU*>U-l jlj*i-l c_J^ ^i^ dllij . i( JISL-Ul obai » 

Jfjl>-J 1_J aJU-I ol>jX~J.I ru> i3jl~JU t iil! JL>Jb>- (_£j^w»l /«Jj-~Jl i_AJjaJ| jJ» 

: ol^JuJI -j iJU- 

J^l^ ^«Ujj (J 1$jc^- p^pj 5vUjJl *l_)?-^ J../ta'.,\,l i_ijjcJI t-i-Xf; : ^tvjLm 9 

WjJ. "U^-JL . LpliLa iijji'J ^yJjliijJl L^l*^- Aij*« Ji Jaii A^-U-l Ju t LjjLstfLi; 

1 s " 

Jaas 4I^>- j^. 4_Jj«i t LjC-J.1 ^"LijJl (UvLii i9jA» J,l i>-LxJ ^j-J lS^' J^i*^ 
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jl ^S }La . Lg-aLcl i_^-ljjl ii-Ullj ?y>\j3\ oJlft *j> L^JjL» ^yyj^ JaJL-Jl t&yu> 
. . . abs, cos, sin : U_L~<. Ub- W^all Jlj jdlj oUlj^ll Jj£ Jvu> jLju> iSy^t 

: iJLJl oLLuJl aJlp j-lk..-.. ^JUl ^oli^Jl JLiJ j!>V>- j-~*Jl 
c t_ 9 Ja_j I — ij-b J^g. U (, + 5 ls>j_io t (concatenation) ( JLsii. -^ ) j_wij _ 

S JLJuJl •yi (ieme) i io-Jl y» S [ i ] : (indexation) *~~a> _ 

S JUlJLJ JjlJdl J^JaJl ^^4 length (s) ijlj _ 

s JLJuJl « OwdJ i~Jl> JjLii JUlJ ^^^1 J jJaJl i.....~< Capacity (s) iJb_ 

jl .. s2 JLA~Jl J si JLJuJl^^k. 1 lil ()i*J5j| p^Jj i Position (si, s2,i) iJb_ 

s2 [ i ] -y. U^kl s2 JUlJI j si jLUd j^> Jjl ^ Ja*: 

s2 [ i ] -y. is^UaJl s2 JLUl J si JLJlJI ^ t insert (si, s2, i) *L*-I _ 

s [ ' ] y l^M s JLJuJl J i*~* n i—sJLsi delete (s, i, n) t-\j>-\ - 

U">UaJl si JLJLJI J Sip-U hi^. n -y> s2 JLJlJI j^£j extract (si , s2, i, n) tl^l _ 

s2 [ i ] # 

JLiJkJLl c.yj| ; JlLo Cj ol_ji Cj^cy* ® 

file [n] of.. 

. ( put jl get 
<ju <Ls*)Vp 4_*liLi Titaj jjjoljjJl J2jLij Ujip-j Lib- : X^-j\>- o'iAsw 9 

^Jl *l j rrV -Hr-jS' J*—*^ c 1 ^ rt— 'V '^1 <J-j* u* ' p*^ 1 -M^ J^- ^"W 

. rewrite jl reset 

J}\>- JJjJl oj^ ^-Jj^ (.^j i^-~>«j SJij-L?- JjlJb- f-l_^f dj&~*> '. oUJa£ ® 
JjlO^I -y. aJj^J, JSI _jA H>iVl ( .L~»j -_^ ) Jxj«.ji ^Liil JJ-I IJla t JLi^Jl 

aJJ Jl 5j_jJ_>- oLJl5lol J_»^i t L>,.JA.-.i pLcI JL>- J t obJudl «JLa 
. sjj Jj- a*J i_i_yj M Li| : liLo o^>-jil p»ljJl i->w <Jp AJaiL>Jl >u> t J15L-UI 

If* JlS'LJI jjj -j53 i JlSL-LJl Jl obJii JJ -^ J-^ oUJ 5jlp jl js- 
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^ Modula 2 Jl J Ada Jl iJ J l*.J\ jU IJK* . <JU.| iJJ| j^j, 
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A> 



5 ioJLio 

7 £°U^I *^ «JlJ1 2LLS" : J/^l J-^iJl 

7 JJl^Jl_0.1 

7 i>wJl -^J-^Nl.l.l 

7 JlSL-Ul4jJJif J Jl_2.1 

14 ^iJLp^iijIjSoJI-a.l 

24 >^-4.1 

28 uis_jj « i jljSi _5.1 

35 Jjlo>._6.1 

47 4i>jL»-L7.1 

47 jiJ^- 81 

49 fclll j^ : jUl J^iJl 

49 ^U^il^_0.2 

50 ^y«V t*^*^- 1-2 

53 £.U^JL) JU^I 0iJ 5c!l_2.2 

56 iJLuiloljjVl-3.2 

56 £|^[_ 0.3.2 

56 cj|jJ_ 1.3.2 

59 oIjJcl.- 2.3.2 

60 ik_, £\j\_ 3.3.2 

63 e^j i_iyo'_ 4.3.2 

64 Jj jJLl jySi_ 5.3.2 
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66 ojiiJI -jjjSCj _ 6.3.2 

68 <3jLJl aplji _ 7.3.2 

69 £|>I _ JaL jj| _ 4.2 

77 olj^l oU-bw- SAUI j*Ij* : dJWl J**ill 

77 &\j\*- 0.3 

80 j^jij - fji^ju - 1.3 

89 oLkyJL 2.3 

93 Ljl_/>J 4JL,>_ 3.3 

102 »lj»-l-4.3 

110 Jlji_5.3 

112 jjjlc- 6.3 

117 LuS jtf? »j»IL. : gl^JI J^aiJl 

117 i.JUL._ 0.4 

117 JaSt-j- I- 4 

123 ijljSiJl - 2-4 

126 oL-JI J-^-^jJI.3.4 

133 olp^jf _ 4.4 

136 xja qjLp - dAo." .»» *^> OJ Jlj -.5.4 

139 iXyi *i»U"*y ***>! - 6.4 

146 o^U-_7.4 

150 ota ^\ o*>U~._ 8.4 

154 ^bU «-|j-UJl JJLJI - 9.4 

155 oLi. 10.4 

159 jijlr. 11.4 

161 SJloL-. I^Sa : ^U-l J-^wJl 

161 ialaifl_ (_gJu_ ojJi_ sjyilj y _ 0.5 

162 J-^ - >°j - •-V" - 1-5 

163 {\y\ _ 3.5 

164 J— !>L* _4> e; > t ^9il-U'l_ <Juaz- j|J*f_ C-jIjJ_4.5 

196 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



164 Sjii_ JjJi>-_i<w- J^j }\Jju-.ij£-5.5 

165 Ob~"- 6 - 5 

166 ^1 J^I_£_ J /-UUp-J-i)U-l-lil-7.5 

168 JJ 3 _J^^-JUL._4*j*f-4ib-*(j?-l-8.5 

171 cjUmJU : j*oLJl J-***" 

171 £»l^l JJj-°lP^ 

173 iJL>byfcUio_ 1 (J>tL« 

177 jp*JI oUakfc _ 2 J>X> 

185 iP^J-*- 3 J*^ 

188 1^-y /" ( V-V*^ ) Ojij&J oUi^- 4 J>*1» 

190 £*-!_/>- 5 ,>J» 

192 obJLc _ 6 ,_p«jt" 
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>U-I 



jbii ^J^Ji jUa^f <_jy i_u* if j, aj ^Li| j» g^JJ ^-l.Vi jUi oi 

*f^ji J *■* £*Uj* ,>• *l J rrl (JU*U-J jt l» <-»^>w uiijjw jLw-i J>^i» -jP tlaiLl J 

. l^jij JU- j l*,^ l^JU^S] Jp oju-Lj jf *Ua>-Vl J j^JI j* ^Lc 4JL**i <<*. 
sdyJi ojis^i i^js j4~j ^Ji iijli j^Ji Ai> gy| Jp ^.jii jj. & 1^1 

JUxl-1 iJL* g^jAl Jp j^, ly.| oLi^J J* JSf jlpLj, giUjJU iu^Jl 

£■ JISL.UI iiH Ajkiy ibLi Sj^va. ,_^y«e (^JJl i_iUS0l lJu lJ*\ l y»& La 

. JI^L-UI i*JJ <;IS Jxj -ili ^y^Ul JCx*-*^ -cu oiLiL-^l -j^c -of 
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